Найдите количество элементов двумерного массива a[1..5,1..5] равных 1. массив заполните случайными числами в диапазоне от -10 до 10. вывести массив на экран в виде таблицы и количество элементов равных 1.
VAR a:array[1..5,1..5]of integer; i,j,k:integer; begin for i:=1 to 5 do begin writeln; for j:=1 to 5 do begin a[i,j]:=random(21)-10; write(a[i,j]:4); if a[i,j]=1 then k:=k+1; end; end; writeln; if k=0 then writeln('нет =1') else writeln(k); end.
Собсна на c++ #include <iostream> #include <conio.h> using namespace std; int main() { setlocale(LC_ALL, "Russian"); const int N = 5, M = 5; int a[N][M]; int min; cout << "Zapolnite matricu 5 na 5: " << endl; for (int i(0); i < N; i++) { for (int j(0); j < M; j++) { cin >> a[i][j]; } } min = a[0][0]; for (int i(0); i < N; i++) { for (int j(0); j < M; j++) { if (min > a[i][j]) min = a[i][j]; } } cout <<"Minimal`nii element: "<< min << endl; _getch(); return 0;}
a:array[1..5,1..5]of integer;
i,j,k:integer;
begin
for i:=1 to 5 do
begin
writeln;
for j:=1 to 5 do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
if a[i,j]=1 then
k:=k+1;
end;
end;
writeln;
if k=0 then
writeln('нет =1')
else
writeln(k);
end.