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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.