. Известны данные о количестве осадков, выпавших в ноябре. Определить общее количество осадков, выпавших второго, четвертого и т. д. числа этого месяца. Количество осадков за каждый день – это случайные числа в диапазоне (0; 200).
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Решение на Pascal:
var s:array[1..30] of real;
sum:real; i:integer;
begin
sum:=0;
for i:=1 to 30 do begin
writeln('введите количество осадков ',i,'-го дня');
readln(s[i]);
end;
for i:=1 to 28 do begin
if i mod 2=0 then
sum:=sum+s[i];
end;
writeln('Общее количество осадков за все чётные дни: ', sum);
end.