Var
A: array [1..16] of real;
i, n: integer; //n - счетчик
begin
n:= 0;
for i:= 1 to 16 do
begin
writeln('Введите число');
readln(A[i]);
if A[i] = 0 then n:= n + 1;
end;
writeln('Количество нулевых элементов: ', n);
end.
def f():
n = int(input())
numbers = [int(input()) for i in range(n)]
return sum(numbers)
Var i:Integer;
A:array[1..10] of Integer ;
Begin
For i:=1 to 10 do begin
A[i]:=random(26)-5;
Write(A[i], ' ') ;end;
Writeln;
For i:=1 to 10 do begin
If A[i]<0 then A[i]:=abs(A[i])
Else A[i]:=-A[i];
Write(A[i], ' ') end;
End.
5120*1024=5242880
Наверное так
Б) 209, 9, 104, 37
В не знаю