Пожалуйста, помогите! Написать программу ** языке Паскаль, которая запрашивает у...

0 голосов
63 просмотров

Пожалуйста, помогите!
Написать программу на языке Паскаль, которая запрашивает у пользователя 10 чисел и заполняет полученными от пользователя числами массив.
Далее программа должна вывести на экран индексы и значения тех элементов массива, в которых содержатся положительные числа.
Например:
Пользователь ввел числа 1, -2, -3, 4, 5, -6, 8, 100, -200, 45
Программа должна вывести на экран:
1 - 1
4 - 4
5 - 5
7 - 8
8 - 100
10 – 45
Не в коем случае не используй const, Count и т.д. Обыкновенным способам по возможности.


Информатика (324 баллов) | 63 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var 
  a: array[1..10] of integer;
  i: integer;
begin
  for i := 1 to 10 do 
    read(a[i]);
  for i := 1 to 10 do
    if a[i] > 0 then
      writeln(i, ' - ', a[i])
end.


image
(148k баллов)