Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 0 до 10000. Допишите на алгоритмическом языке программу, которая находит и выводит минимальный среди трехзначных элементов массива, делящихся на 5. Если таких элементов нет, то вывести -1. Запрещается использовать переменные, не описанные в приведенном фрагменте программы, но разрешается не использовать часть из них.

программа на паскале:

program xxx;

  var i, n, s : integer;

begin

  write ('введите n =' );

  readln (n);

  s: =0;

  for i: =1 to n do

    s: = s+ sqr(i+1);

  writeln ('сумма =' , s);

  readln

end. 

линейный (следования)

разветвляющийся (развилка)

циклический

253(8)=10101011(2)

2в4(16)=1010110100(2)

48(16)=1001000(2)

qbasic

? "введите стоимость книг и сумму денег соответсвенно через запятую"

input a,b

if a=b then 1 else 2

1 ? "" : goto 10

2 if a> b then 3 else 4

3 a-b=c

? "не хватает денег,доплатите"; c : goto 10

4 b-a=r

? "ваша здача"; r

10 end