В массиве из 10 элементов заполненном числами от 0 до 100 посчитать.1) сумму элементов...

Question

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

Answer 1

1. program task31153145;
2. const
3.  N = 10;
4. var
5.  arr: array[1..N] of integer;
6.  S, indexOfFifty: integer;
7.  haveFifty: boolean;
8. begin
9.  haveFifty := false;
10.  for var i := 1 to N do
11.    begin
12.      arr[i] := Random(100);
13.      if (arr[i] > 10) and (arr[i] < 30) then
14.        S := S + arr[i];
15.          if arr[i] = 50 then
16.            begin
17.              indexOfFifty := i;
18.              haveFifty := true;
19.            end;
20.    end;
21.  if haveFifty = true then
22.    Writeln('В МАССИВЕ ЕСТЬ ЧИСЛО 50, ЕГО ИНДЕКС = ', indexOfFifty)
23.  else
24.    Writeln('В МАССИВЕ НЕТ ЧИСЛА 50');
25.  Writeln('S = ', S);
26. end.

Comments

Можно и без флага. Если нету числа 50, то indexOfFifty будет равен 0