Составьте программу, которая позволяет ввести элементы массива а [1...10] с клавиатуры и выводит на экран количество отрицательных элементов и их индексы.

Паскаль.
var a:array [1..10] of integer;
begin
writeln( Введите 10 элементов массива через пробел);
i:=1;
repeat
read(a[i]);
i:=i+1;
until i>10;
k:=0;
for i:=1 to 10 do
if a[i]<0 then begin k:=k+1; write(i,   ); end;
writeln;
if k=0 then write(В массиве нет отрицательных элементов) else write(В массиве ,k, отрицательных элементов);
readln;
end.

Оцени ответ

wix.ru

Оцени ответ
Не нашёл ответ?

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку
Самые новые вопросы