Скорее всего, так:
1 - Б (сайт еще только планируется)
2 - Д (пора приступать к основной части - организации всего, чтоб хоть как-то работало)
3 - А (надо привести теперь это в порядок)
4 - Г (сайт окончательно публикуется)
5 - В (за сайтом следят, оценивают работу, дорабатывают)
Program gt;
var a:array[1..30] of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 30 do
begin
read(a[i]);
write(a[i],' ');
if(a[i]<0)then s:=s+a[i];
end;
writeln;
writeln('s=',s);
end.
Const n = 100;
const m = 50;
var a:array[1..n] of integer;
b:array[1..n] of integer;
i,it,bo:integer;
begin
for i:= 1 to n do
a[i] := trunc(Random(100));
for i:= 1 to m do
b[i] := trunc(Random(100));
bo:=1;
for i:=1 to m do
if bo = 1 then
for it:=1 to n do
if b[i] <> a[it] then begin bo:= 0; break; end;
if bo = 1 then write('Входят') else write('Не входят');
end.
если я правильно понял задание то так
смотри на первом этапе адолжно быть меньше нуля. а в дано а=2.два ну никак не меньше нуля,значит ответ так и останется.