Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел и выводит количество ненулевых элементов. перед вводом каждого элемента должна появляться подсказка с номером. рекомендуемый вид экрана при работе программы: после ввода каждого числа нажмите a[1]= 12 a[2]= 0 a[3]= -3 a[4]= 1 a[5]= 0 в массива 3 ненулевых элемента
Маркизетта
3
06.07.2019 23:00
7
Другие вопросы по теме Информатика
lkQwertyuiop1
03.06.2019 00:10
maximkap007
03.06.2019 00:10
Polinakey9283773744
03.06.2019 00:10
tanchik2511
03.06.2019 00:10
Roman22020
03.06.2019 00:00
natacha18
03.06.2019 00:00
vikaplmplmpl
03.06.2019 00:00
Dshmz
03.06.2019 00:00
kisel2014
03.06.2019 00:00
ирина1844
02.06.2019 23:50
Популярные вопросы
- охарактеризуйте напрями внутрішньої та зовнішньої політики перших князів та їхній...
2 - Что делали министры в лилипутии??...
3 - составить кроссворд по геометрии, 10 слов...
2 - Составить до 5 вопросов по фрагментам из романа Дон Кихот ...
3 - перевести текст A count of sentence connectors in 12 academic papers produced...
3 - Чёрный аист – лесной отшельник: немногие видели его в лесу, не любит он напоказ...
1 - A) 127. Упростите выражение:х2 – 10x + 25 x2 — 163х + 12 2x – 101 - а? a2 + 4ab...
2 - Можете ли вы привести пример из вашего опыта который свидетельствует о существовании...
1 - В каком области экономики страны Европы изменения происходило быстрее и почему?...
2 - Чем отличается русская легенда Солдат и смерть и Немецкая Смерть кума ...
3
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.