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

Составьте программу на языке Паскаль.

Имеется массив на 20 чисел, его необходимо заполнить и найти сумму чисел, которые больше 30.

Свое решение есть, но я вообще не шарю в информатике.

Ответ

Автор - thedomidy

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.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.