Тема массивы, язык паскаль.
Составьте программму которая заменяет все числа не кратные 50 или больше чем 10 на 11(Массив задается с клавиатуры , количество элементов 14)
Составьте программму которая заменяет все числа не кратные 50 или больше чем 10 на 11(Массив задается с клавиатуры , количество элементов 14)
More Questions From This User See All
Answers & Comments
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.