Ввести с клавиатуры одномерный массив из 5 целых чисел и вывести количество ненулевых элементов

@Nightmare34 · Регистрация: 19.12.2014

Студворк — интернет-сервис помощи студентам

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

@ramborumbo · 19.12.2014, 01:26

Примерно так:

Pascal

var a:array [1..5] of integer;
i,n:integer;
begin
writeln('после ввода каждого числа нажимайте <ENTER>');
for i:=1 to 5 do
begin
writeln('введите ',i,' элемент');
readln(a[i]);
if a[i]<>0 then
n:=n+1;
end;
writeln('в массиве ',n,' ненулевых элемента');
end.

@Nightmare34 0 / 0 / 0 Регистрация: 19.12.2014 Сообщений: 1
		1
	Ввести с клавиатуры одномерный массив из 5 целых чисел и вывести количество ненулевых элементов 19.12.2014, 00:15. Показов 11476. Ответов 1 Метки нет (Все метки) Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел и выводит количество ненулевых элементов. Перед вводом каждого элемента должна появляться подсказка с номером. Рекомендуемый вид программы: После ввода каждого числа нажмите <ENTER> A [1] = 12 A [2] = 0 A [3] = -3 A [4] = 1 A [5] = 0 В массиве 3 ненулевых элемента 0

	19.12.2014, 01:26

Опции темы

Ввести с клавиатуры одномерный массив из 5 целых чисел и вывести количество ненулевых элементов

Решение