Program ex;uses crt;var N, count, sum: integer;
begin N:= 1; count:= 1; while not(N = 0) do begin read(N); if N mod 2 = 0 then begin sum:= sum + N; count:=count + 1; end; end; writeln('sum = ',sum); writeln('sr. arefm. = ',sum/count);end.
Ответ:
program s;
var
a:array [1..50] of integer;
i,P,C: integer;
begin
for i:=1 to 7 do
begin
a[i]=random (30);
end;
for i:=1 to 7 do begin
C:=C+a[i];
Р:=P*a[i];
end;
writeln (C);
writeln (P);
end.
Объяснение:
Вообще программа вычисляла произведение всех элементов массива. Теперь вычисляет и сумму всех элементов массива.
(b∧f)∨(c∧f)∨(f∧(¬a))∨(a∧(¬b)∧(¬c)∧(¬f))
Почему я 7 клас, и не понимаю КАК ЭТО ДЕЛАТЬ??