Предположим, что массив уже есть и он называется arr.
-> это TAB
sum = 1
# произведение всех отрицательных элементов
for i in arr:
# для каждого элемента в массиве
-> if i < 0:
#если этот элемент < 0
->-> sum *= i
#прибавить к нашей сумме
print(sum)
Var a:array [1..8,1..8] of integer;
j,k,n:integer;
begin
randomize;
for j:=1 to 8 do
begin
for k:=1 to 8 do
begin
a[j,k]:=random(9)+1;
write (a[j,k]:2);
end;
writeln;
end;
repeat
write ('N = ');
readln (n);
until n in [1..8];
for j:=1 to 8 do write (a[n,j]:3);
writeln;
readln;
end.
Андрей Правдивый
Руслан Хитрец
Леша Шутник
Составил Леша
T=I/c*i c=11000Гц i=8бит (низкое качество)
t=1200*1024*8/(11000*8)=131 c
Может быть сайт
программу которая выводит на экран квадраты n первых натуральных чисел