Дан двумерный массив целых чисел 5x5. Замените числа меньше 7 их квадратами. Напишите программу на Паскале.

Программа на Паскале:

program ReplaceLess7;
var
a: array[1..5, 1..5] of integer;
i, j: integer;
begin
for i := 1 to 5 do
for j := 1 to 5 do
read(a[i, j]);

for i := 1 to 5 do
for j := 1 to 5 do
if a[i, j] < 7 then
a[i, j] := sqr(a[i, j]);

for i := 1 to 5 do
begin
for j := 1 to 5 do
write(a[i, j], ' ');
writeln;
end;
end.

Программа сначала считывает массив \(5 \times 5\), затем заменяет все элементы меньше \(7\) их квадратами и выводит получившийся массив.

0 0 Пожаловаться