Создать массив,вводя значения с клавиатуры.вывести на экран элементы кратные шести. например: если массив а[5]: -12,7,18,23,-11,то должны получить : -12,18.
Uses crt; const N=5 var a:array[1..N] of integer; b: array[1..N] of integer; i: integer; begin for i:=1 to n do begin write ('a[', i, ']='); read (a[i]); end; writeln('Ishodniy massiv a'); for i:=1 to n do write(a[i],' '); for i:=1 to n do if a[i] mod 3=0 then write (a[i], ' '); end.
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Число элементов в массиве:');
var a:=ReadArrInteger('Вводите элементы:',n);
a.Where(t->t mod 6=0).Println(', ')
end.
const N=5
var a:array[1..N] of integer;
b: array[1..N] of integer;
i: integer;
begin
for i:=1 to n do begin
write ('a[', i, ']=');
read (a[i]);
end;
writeln('Ishodniy massiv a');
for i:=1 to n do
write(a[i],' ');
for i:=1 to n do
if a[i] mod 3=0 then write (a[i], ' ');
end.