В 3 пункте непонятно. "чему равна температура за первую половину сентября?" Средняя температура? Половина сентября? в задаче и так прдставлен массив половины сентября - с 1 по 15 число. uses crt; const n=15; var max,min,i,k:integer; sr:real; a:array[1..n] of integer; begin randomize; for i:=1 to n do begin a[i]:=random(23)-4; write(a[i]:3); end; writeln; max:=-4; for i:=1 to n do if a[i]>max then begin max:=a[i]; k:=i; end; writeln('a)',k,' day ',max,'temperature'); min:=19; for i:=1 to n do if a[i]<min then begin min:=a[i]; k:=i; end; writeln('a)',k,' day ',min,'temperature'); sr:=0; for i:=1 to n do sr:=a[i]+sr; sr:=sr/n; writeln('средняя температура за половину сентября ',sr); k:=0; for i:=1 to n do if a[i]<sr then begin inc(k); writeln(i,'сентября'); end; writeln(k); end.
var
n,s:integer;
begin
s:=0;
repeat
Read(n);
if n<>0 then
if (n mod 6=0) and (n mod 10=2) then s:=s+n
until n=0;
Writeln(s)
end.
Пример
16
42
18
132
94
18
0
174
Кроме этого, зачем-то требуют блок-схему - приведена во вложении, выполнена по ГОСТ 19.701-90 (ISO 5807-85).
2. А вот так эту задачу можно решить в современном Паскале
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0)
.Where(t->(t mod 6=0) and (t mod 10=2)).Sum.Println
end.
И блок-схема тут вообще не нужна: она ничего не даст.
Сравнение явно не в пользу школьного "образования" - учить, как выполнять работу двадцать минут вместо двух.