Здравствуйте, заранее спасибо) От этой задачи зависит моя оценка за четверть, поэтому...

Question

Здравствуйте, заранее спасибо) От этой задачи зависит моя оценка за четверть, поэтому прошу как можно быстрее написать решение, вот сама задача: Составьте программу на языке Паскаль. Имеется массив на 20 чисел, его необходимо заполнить и найти сумму чисел, которые больше 30. Свое решение есть, но я вообще не шарю в информатике.

Answer 1

program task31055570;

var

 arr: array[1..20] of integer;

 S: integer;

begin

 Writeln('ЗАПОЛНИТЕ МАССИВ: ');

 for var i := 1 to 20 do

   begin

     Read(arr[i]);

     if (arr[i] > 30) then  

       S := S + arr[i];

   end;

 Writeln('СУММА ВСЕХ ЧИСЕЛ, БОЛЬШИХ 30 = ', S);

end.