Составьте программу ввода элементов массива h [1..8] с клавиатуры и вывода на экран элементов с отрицательным значением
285
377
Ответы на вопрос:
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.
Популярно: Информатика
-
iarik200808.02.2022 15:13
-
AINASH75121229.08.2020 07:52
-
ailanka8714.09.2020 15:49
-
linakn1431.03.2023 05:51
-
austry133726.06.2023 14:38
-
mikstura7108.01.2023 02:47
-
snegovayasnejaovrg7j19.09.2020 23:38
-
Arseni0122.10.2022 06:50
-
вбцуьа24.08.2020 06:29
-
lilli39307.09.2020 19:05