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.

Answer 2

Пример программы на языке Паскаль, которая заменяет все числа не кратные 50 или больше чем 10 на 11 в заданном массиве:

program ReplaceNumbers;

var
  arr: array[1..14] of integer;
  i: integer;

begin
  writeln('Введите элементы массива:');
  for i := 1 to 14 do
  begin
    readln(arr[i]);
  end;

writeln('Исходный массив:');
  for i := 1 to 14 do
  begin
    write(arr[i], ' ');
  end;

writeln;

for i := 1 to 14 do
  begin
    if (arr[i] mod 50 <> 0) or (arr[i] > 10) then
    begin
      arr[i] := 11;
    end;
  end;

writeln('Массив после замены:');
  for i := 1 to 14 do
  begin
    write(arr[i], ' ');
  end;

end.

При запуске программы пользователь должен ввести 14 элементов массива. Затем программа заменит все числа, не кратные 50 или больше чем 10, на 11 и выведет измененный массив.