Составьте программу ввода элементов массива h [1..8] с клавиатуры и вывода на экран элементов с отрицательным значением
Нет комментариев
Ответы
Гость 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]<0 then writeln(h[i]);
end;
end.
![Program zadacha;<br><br>var<br><br>h: array [1..8] of real;<](https://ru-static.z-dn.net/files/db9/552b36ee4b71f9dc53e06fcdf417dfcf.png "Program zadacha;<br><br>var<br><br>h: array [1..8] of real;<")
Нет комментариев
Список предметов
