Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до - id648885720210204 от Еролггштши 04.02.2021 22:14

Question

Информатика: Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 10 и находит сумму минимального и максимального элементов массива.

Еролггштши · Accepted Answer

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.

Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 10 и находит сумму минимального и максимального элементов массива.

MOGZ ответил