ВАРИАНТ 1.
1. Дан массив из 10 целых чисел. Выведите на печать индексы элементов, кратных заданному числу п. 2. Ввести массив a[1], a[2] ,..., a[2] ,...,a[10] вещественного типа и найти среднее арифметическое положительных элементов.

Ответ:программист
...

3 раза.
После первого прохождения цикла 
s=2; k=2;
после 2  прохождения цикла 
s=5; k=3;
после 3  прохождения цикла 
s=9; k=4; 
при следующей проверки условие s<=7 не выполниться так как s>7

1)имя : array [ начальное значение .. окончательное значение ] of тип массива
2)С помощью for i:=1 to n fo
readln(mas[i])
3)for i:=1 to n fo
writeln(mas[i])
4)s:=o
for i:=1 to n fo
s:=s+mas[i]
5)s:=o
for i:=1 to n
if условие then
s:=s+mas[i]
6)
k:=o
for i:=1 to n
if условие then
k:=k+1
7)max:=mas[1]
for i:=1 to n
if max < mas[i] then
a :=max ;
max:=mas[i];
mas[i]:=a;
8)Сортировки бывают разные например такая
for i:=1 to n-1 do
for j:=1 to n-i do
if mas[i]>mas[i+1] then
a :=mas[j+1];
mas[j+1]:=mas[j];
mas[j]:=a;