Question

Разработать блок-схему и программу, которая запрашивает массив из N целых чисел, выводит номера отрицательных элементов и сами эти элементы)

Вот эти числа:
а) 3,5,-2,3,-2,0,-6,-8,1;
б)-1,-2,-3,-4,0,-1,2,3)

Answer 1

1) Программа для Pascal ABC:

program massiv;
uses CRT;
var
a:array [1..200] of integer;
sum,i,n,d:integer;
begin
writeln('vvedite kolitestvo chisel massiva (N)');
readln(n);
randomize;
clrscr;
for i:=1 to n do
begin
a[i]:=random(100000);
writeln(a[i])
end;
for i:=1 to n do
begin
d:=a[i] mod 7;
if d=0 then
sum:=sum+a[i]
end;
writeln('summa chisel kratnix 7 = ',sum)
end.