Заполнить массив из 10 элементов. Во второй массив переписать все элементы кратные 5 на четные числа

Question

Информатика

Анда

21 марта, 20:37

Заполнить массив из 10 элементов. Во второй массив переписать все элементы кратные 5 на четные числа

+4

Ответы (1)

Знаете ответ на вопрос?

Аникитична · Answer 1

Program kratnie5;

uses crt;

const n=10;

type x=array[1 ... n] of integer;

var a, b:x;

i:integer;

begin

for i:=1 to n do

readln (a[i]) ;

for i:=1 to n do

if (a[i] div 5) = 0 then

begin

b[i]:=a[i];

end;

for i:=1 to n do

writeln (b[i]) ;

end.