Размещено 4 года назад по предмету
Информатика
от 80koh
Задание 2. Переделать
данную программу так, чтобы определить существует ли в данной таблице
отрицательное(двухзначное число, 0, и т. д.) program z2; var a: array [1..5] of integer; i:integer; n: string[3]; begin for i:=1 to 5 do readln(a[i]); n:= ' нет '; for i:= 1 to 5 do if a[i] <0 then n:=' да ' ; writeln( n); readln; end.