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

[Surman]

Surman отредактировано Surman

Бывалый

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

[Happy end]

Happy end отредактировано Happy end

user system.

google в помощь

[Surman]

Surman отредактировано @ Happy end

Бывалый

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

[Happy end]

Happy end отредактировано @ Surman

user system.

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

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

[SNUFF]

SNUFF отредактировано @ Surman

Стремлюсь к соточке

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

[MauZzeR]

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]

Ham4ik отредактировано @ Surman

Мастер

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