Zhalabnas
7 год назад
Составьте программу ввода элементов массива h [1..8] с клавиатуры и вывода на экран элементов с отрицательным значением
ОТВЕТЫ
Щепотьев
Jul 17, 2019
Program zadacha;
var
h: array [1..8] of real;
i: byte;
begin
writeln(vvedite 8 chisel);
for i:=1 to 8 do read(h[i]);
for i:=1 to 8 do begin
if h[i]lt;0 then writeln(h[i]);
end;
end.
var
h: array [1..8] of real;
i: byte;
begin
writeln(vvedite 8 chisel);
for i:=1 to 8 do read(h[i]);
for i:=1 to 8 do begin
if h[i]lt;0 then writeln(h[i]);
end;
end.
259
