Записать программу ввода с клавиатуры массива целых чисел. а [1 ... 10] вывода на экран элементов массива с положительными значениями.

Question

Информатика

Флёна

7 сентября, 17:00

Записать программу ввода с клавиатуры массива целых чисел. а [1 ... 10] вывода на экран элементов массива с положительными значениями.

+3

Ответы (1)

Знаете ответ на вопрос?

Андя · Answer 1

Var a: array [1 ... 10] of integer;

i: integer;

begin

for i : = 1 to 10 do readln (a[i]) ;

for i : = 1 to 10 do

if (a[i] > 0) then writeln ('[', i, '] = > ', a[i]) ;

end.

Такое подойдёт?)