Hogy kell ezt le programozni pascal nyelven? beker 10 szamot kiirja a harommal oszthato szamokat?

Itt egy megoldás, ezt még lehet szépíteni, egyszerűsíteni.

Hibakezelést is be lehet tenni a beolvasásnál, de gondolom - ha már maga a program megírása is gondot jelentett - hogy ezt még nem tanultátok.

program szamos;

var

szamok : array [1..10] of longint;

i : longint;

begin

for i := 1 to 10 do

begin

Write('Kerem az ',i,' szamot : ');

ReadLn(szamok[i]);

WriteLn;

end;

WriteLn('A harommal oszthato szamok : ');

for i := 1 to 10 do

if szamok [i] mod 3 = 0 then Write(szamok[i],' ');

end.