Задан двумернный массив вевести на экран элементы больше 20
Задан двумернный массив вевести на экран элементы больше 20
Гость
Ответ(ы) на вопрос:
Гость Var
a:array[1..10,1..10] of integer;
i,j:integer;
begin
{
здесь надо задать массив.
Как пример задания случайного массива:
for i:=1 to 10 do
for j:=1 to 10 do
begin
a[i,j]:=random(10)+1;
end;
}
for i:=1 to 10 do
for j:=1 to 10 do
begin
if a[i,j]>20 then write(a[i,j])
end;
end.
Не нашли ответ?
Похожие вопросы