задача информатика

[Surman]

куплю подаруи в вк

[Happy end]

google в помощь

[Surman]

как я найду если мне учитель на листке писал

[Happy end]

 как я найду если мне учитель на листке писал

Просто берешь и ищешь

[SNUFF]

ничем не могу помочь,сам учусь в колледже на 1 курсе

[MauZzeR]

var i:byte;
a: array [1..10] of integer;
begin
writeln('Введите элементы массива: ');
for i:=1 to 10 do
read(a);
writeln('Отрицательные элементы: ');
for i:=1 to 10 do begin
if a<0 then writeln('A[',i,'] ',A,' ');
end;
end.

[Ham4ik]

а задача то какая?