Найдите количество элементов массива М (5,5) равных 22 значения которых задаются датчиком случайных чисел
Найдите количество элементов массива М (5,5) равных 22 значения которых задаются датчиком случайных чисел
Гость
Ответ(ы) на вопрос:
Гость Program Matr22; Uses Crt; type matrix=array[1..5,1..5] of integer; var m:matrix; n:byte; procedure Auto;
var i,j:integer;
begin n:=0;
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(50)+5; if (m[i,j]=22) then n:=n+1;
end;
end;
end; procedure PrintMatrix(mas:matrix;);
var j,k:integer;
begin
for k:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(mas[k,j]:3);
end;
writeln;
end;
end; begin clrscr; Auto; PrintMatrix(m); writeln; writeln('Количество элементов равных 22:',n); readkey; end.
Не нашли ответ?
Похожие вопросы