Чисто для себя.
C2 Вариант 1C2 Вариант 1
program C21;
uses crt;
var
a:array [1..30] of integer;
k,i: integer;
begin
crlscr
writeln ('a[i]');
readln (a[i]);
k:=0;
for i:=1 to 30 do
if a[i]<0 then
k:=k+a[i];
writeln ('k=',k);
else
writeln ('otsutstvuet');
readkey;
end.
C2 Вариант 2C2 Вариант 2
program C22
uses crt;
var
a:array [1..30] of integer;
k,i:integer;
begin
crlscr
writeln ('a[i]');
readln (a[i]);
k:=1;
for i:=1 to 30 do
if a[i]<0 then
k:=k*a[i];
writeln ('k=',k);
readkey;
end.
С2 Вариант 4С2 Вариант 4
program C24;
uses crt;
var
a:array [1..30] of integer;
k,i:integer;
begin
crlscr;
writeln ('a[i]');
readln (a[i]);
k:=0
for i:=1 to 30 do
begin
if a[i]>50 and a[i]<57 then
k:=k+1;
else
writeln ('otsutstvuet');
end;
writeln ('k=',k);
readkey;
end.