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

Question

Информатика

Талина

4 июля, 01:12

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

+4

Ответы (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.

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