Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел и выводит количество ненулевых элементов. перед вводом каждого элемента должна появляться подсказка с номером. рекомендуемый вид экрана при работе программы: после ввода каждого числа нажмите a[1]= 12 a[2]= 0 a[3]= -3 a[4]= 1 a[5]= 0 в массива 3 ненулевых элемента

253

286

Посмотреть ответы 2

Ответы на вопрос:

avetik04

Информатика

4,7(55 оценок)

Program p1; var a: array[1..5] of integer; i,c: integer; begin for i: =1 to 5 do begin writeln('введите a[',i,']: '); read(a[i]); if a[i]> 0 then c: =c+1; end; writeln('в массива ',c,' ненулевых элемента'); end.

Qweyudbdbf

Информатика

4,6(17 оценок)

Ясчитаю, что объём скачаной информации 4800000000 бит

Популярно: Информатика

Темы

Получить
полный доступ

150 000+ пользователей

Оформить подписку