Var
i,x:integer;
sr:real;
begin
sr:=0;
for i:=1 to 4 do
begin
write('Оценка за задачу №',i,' ');
readln(x);
sr:=sr+x;
end;
sr:=sr/4;
write('Средняя оценка ',Round(sr));
End.<span>
</span>
Сноска — это ссылка вне основного текста на источник информации, использованный при написании статьи, или комментарий. Ссылка создаётся с помощью соответствующих тегов или шаблонов, которые нужно вставить после поясняемой части текста.
В окончательном тексте сноски размещаются автоматически в разделе «Примечания». Также автоматически после фрагмента поясняемого текста ставится знак сноски (цифра или значок), связывающий поясняемый текст со сноской, а в «Примечаниях» перед сноской ставится значок возврата к поясняемому тексту. Если кликнуть мышкой по знаку сноски, то текст переместится к сноске, если по значку возврата — то к поясняемому тексту.
Pascal abc.
Программа прикреплена к ответу
_______________________________
<span>var a:array[1..100] of integer;
i,n,s,k:integer;
sr:real;
begin
write('введите кол-во эл-тов массива: ');read(n);
for i:=1 to n do begin a[i]:=random(60); write(a[i]:4);end;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then begin s:=s+a[i]; inc(k); end;
writeln;
writeln('срзнач= ',s/k:4:2);
end.</span>
Готово! Сделал с оформлением и пояснением.
Ответ:
import random as r
s=[r.randint(1,100) for i in range(10)]
print(s)
m1=max(s)
s.remove(m1)
m2=max(s)
print(m1,m2)
Объяснение: