Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
craper
0 / 0 / 0
Регистрация: 13.11.2016
Сообщений: 11
1

Как запросить пользователя ввести 10 чисел через цикл?

13.11.2016, 17:15. Просмотров 429. Ответов 2

Есть код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a : array [1..10] of integer; num, i : integer;
 
begin
  Write('Введите 10 чисел: ');
  for i:=1 to 10 do
  Readln(a[i]);
  num :=0;
  
  for i:=1 to 10 do
  if a[1] = 0 then num := num +1;
  Writeln('Количество нулей: ', num);
end.
Нужно, что бы вместо "Введите 10 чисел" был запросто по очереди:
Введите 1 число:
Введите 2 число:
Введите 3 число:
и так до 10

Как можно это сделать при помощи цикла?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.11.2016, 17:15
Ответы с готовыми решениями:

Запросить у пользователя N различных чисел. Найти среднее арифметической всех введенных чисел
Доброго времени суток, помогите написать программу на Pascal. Текст задачи:...

Цикл. Ввести с клавиатуры 5 чисел и вывести их кубы
Помогите решить пожалуйста! 3.Ввести с клавиатуры 5 чисел и вывести их...

Вводится последовательность чисел до первого нуля, найти количество четных чисел. Только цикл через while
Вводится последовательность чисел до первого нуля, найти количество четных...

Подсчет суммы чисел через цикл
Приветствую всех, помогите пожалуйста с задачей, уже часа два думаю над ней....

Поиск максимального элемента заданной последовательности чисел, через цикл Repeat
Поиск максимального элемента заданной последовательности чисел через цикл...

2
Puporev
Модератор
55402 / 42537 / 29392
Регистрация: 18.05.2008
Сообщений: 100,603
13.11.2016, 19:45 2
Pascal
1
2
3
4
5
for i:=1 to 10 do
 begin
  write('Введите ',i,' число');
  readln(a[i]);
 end;
1
craper
0 / 0 / 0
Регистрация: 13.11.2016
Сообщений: 11
13.11.2016, 21:21  [ТС] 3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.11.2016, 21:21

Задача через цикл while, найти количество отрицательных и сумму положительных чисел
Вводится последовательность чисел до первого нуля, найти количество...

Даны десять чисел. Вывести их среднее арифметическое. Задача решается через цикл FOR
Даны десять чисел. Вывести их среднее арифметическое. Задача решается через...

Даны десять чисел. Вывести их среднее арифметическое.Задача решается через цикл FOR
Даны десять чисел. Вывести их среднее арифметическое.Задача решается через цикл...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru