Решите пожалуйста задачу в Паскале. Выполнить задачу: Дан двумерный массив из 5x5 элементов, заполненных случайно в диапозоне от 0 до 40. Вывести на экран все элементы этого массива и отдельно четные элементы этого массива.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
const
n=5;
var
i,j:integer;
a:array [1..n,1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(41);
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to n do
for j:=1 to n do
if a[i,j] mod 2 = 0 then
write(a[i,j]:4);
end.
// PascalABC.NET
begin
var a := MatrRandom(5, 5, 0, 40);
a.Println;
a.ElementsByRow.Where(p -> p.IsEven).Print
end.