Помогите пожалуйста с информатикой: Создать массив и вывести положительные элементы массива и их номера. Элементы массива вводятся генератором случайных чисел. Например: Если массив а[1..5]: -15, -7, 8, 23, -11, то должны получить: 8, 3, 23, 4. С блок схемой пожалуйста

Вопрос школьника по предмету Информатика

Помогите пожалуйста с информатикой:
Создать массив и вывести положительные элементы массива и их номера. Элементы массива вводятся генератором случайных чисел.
Например: Если массив а[1..5]: -15, -7, 8, 23, -11, то должны получить: 8, 3, 23, 4.
С блок схемой пожалуйста

Ответ учителя по предмету Информатика

Ответ:

program a1;

var n,i:integer;a:array[1..100] of integer;

begin  

write (‘n’); readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do if abs(a[i]) mod 7=0

then write (a[i],»);

readln

end.