Здравствуйте, заранее спасибо)
От этой задачи зависит моя оценка за четверть, поэтому прошу как можно быстрее написать решение, вот сама задача:
Составьте программу на языке Паскаль.
Имеется массив на 20 чисел, его необходимо заполнить и найти сумму чисел, которые больше 30.
Свое решение есть, но я вообще не шарю в информатике.
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад