Тема массивы, язык паскаль. Составьте программму которая заменяет все числа не кратные 50...

Question

Тема массивы, язык паскаль.
Составьте программму которая заменяет все числа не кратные 50 или больше чем 10 на 11(Массив задается с клавиатуры , количество элементов 14)

Answer 1

Program z1;
var a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
read(a[i]);
if (a[i] mod 50 <>0) or (a[i]>10) then a[i]:=11;
end;
for i:=1 to 14 do writeln(a[i]);
end.