Создать массив размерностью 5 на 5 в диапазоне от -20 до 20. k, n = 1, 2, 3, 4, 5. Вывести его на экран в виде таблицы (матрицы).
Вычислить количество положительных элементов и их про¬изведение.
Var a: array[1..5,1..5] of integer;
i,j,p,s: integer;
begin
Writeln(Введите элементы матрицы: );
for i:= 1 to 5 do
for J:=1 to 5 do
read(a[i,j]);
for i:= 1 to 5 do
begin
for j:= 1 to 5 do
write(A[i,j], ) ;
writeln();
end;
p:= 1;
s:= 0;
for i:= 1 to 5 do
for J:=1 to 5 do
if a[i,j] > 0 then
begin
s:= s+1;
p:= p*a[i,j];
end;
Writeln(Количество положительных элементов = , s); Writeln(Произведение положительных элементов = , p);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
