Помогите с информатикой ( на фото)

+ 0 -

Саня1702

17 дек. 2013 г., 16:30:55 (10 лет назад)

Как я понял то что числа это сам массив и всего чисел 14 если не 14 то исправьте в строчке номер 3 - число 14 на любое число

program asd_;
uses crt;
var D : array[1..14] of integer;
i, a, min : integer;
BEGIN

clrscr;

for i:=1 to 14 do readln(D[i]);
a:=0;
min:=255;
for i:=1 to 14 do begin
if (D[i]<0) then a:=a+1;
if (D[i] end;
writeln('Кол-во отрицательных элементов = ',a);
writeln('Наименьший элемент = ',min);
readln;
END.

+ 0 -

макс75

17 дек. 2013 г., 18:49:07 (10 лет назад)

Комментарий удален

+ 0 -

Karine2419791

17 дек. 2013 г., 19:57:44 (10 лет назад)

тебя ни кто не просит

+ 0 -

Lyaskovets

17 дек. 2013 г., 22:37:01 (10 лет назад)

Комментарий удален