Решить . pascal дан массив целых чисел к(15), найти и вывести на печать отрицательные элементы из этого массива.

ЕvilСookie ЕvilСookie    1   05.06.2019 03:40    2

Ответы
лина28051 лина28051  05.07.2020 19:27
Program chik;
var k:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do
read(k[i]);
for i:=1 to 15 do
if(k[i]<0)then write(k[i],' ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика