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.