Задание 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.
отрицательное(двухзначное число, 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.
More Questions From This User See All