Информатика, опубликовано 2018-08-22 22:54:28 by Гость
Заполнить массив из 15 элементов целыми числами с клавиатуры, и найти количество отрицательных элементов. Программа Паскаль.
Ответ оставил Гость
Program kl;
var a:array[1..15] of real;
i:integer;
k:real;
begin
k:=0;
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]begin
k:=k+1;
end;
end;
writeln(кол-во отрицательных элементов=,k);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.