Question

Вмассиве из 10 элементов заполненном числами от 0 до 100 посчитать.1) сумму элементов больше 10 но меньше 30.2) вывести индекс элемента равного 50 или сообщить что его нет.

Answer 1

program task31153145; const  N = 10; var  arr: array[1..N] of integer;  S, indexOfFifty: integer;  haveFifty: boolean; begin  haveFifty := false;  for var i := 1 to N do    begin      arr[i] := Random(100);      if (arr[i] > 10) and (arr[i] < 30) then        S := S + arr[i];          if arr[i] = 50 then            begin              indexOfFifty := i;              haveFifty := true;            end;    end;  if haveFifty = true then    Writeln('В МАССИВЕ ЕСТЬ ЧИСЛО 50, ЕГО ИНДЕКС = ', indexOfFifty)  else    Writeln('В МАССИВЕ НЕТ ЧИСЛА 50');  Writeln('S = ', S); end.