Вклетках эт хранятся следующие формулы: а1=10 а2=20 а3=а2/а1 в1=если(а2*а1 1000; 5; 10) в2=5 в3=сумм(а1: - id254687420210624 от Аааоо0 24.06.2021 05:31

Question

Информатика: Вклетках эт хранятся следующие формулы: а1=10 а2=20 а3=а2/а1 в1=если(а2*а1 1000; 5; 10) в2=5 в3=сумм(а1: в2) какой результат будут иметь следующие логические выражения (истина или ложь): а)или(а1 5; в3=45) б)не (а3=2) в)или(и(не(а3 2); а1=10); и(в2 =5; в3=50)) примечание.описать ход решения

Аааоо0 · 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.

MOGZ ответил