Var a:array[1..50] of integerl; sr:real; kol,i:integer; begin for i:=1 to 50 do readln(a[i]); kol:=0; sr:=0; i:=5; while i<=50 do begin sr:=sr+a[i]; kol:=kol+1; i:=i+5; end; writeln(sr/kol); end.
1. Ну я не знаю какая часть фигуры закрашена. Будем считать что прямоугольник находиться в окружности и необходимо из площади курга вычесть площадь прямоугольника. const p =3.14; var a,b,r,s1,s2:real; begin Writeln('Введите длины сторон прямоугольника'); readln(a,b); Writeln('Введите радиус окуржности'); Readln(r); s1:=a*b; s2:=p*sqr(r); Writeln('Площадь закрашеной окружности = ', s2-s1); end.
Если закрашена какая-то другая область то можете просто изменить действие с площадями в предпоследней строчке ( в данном случае мы из s2 вычитаем s1).
1. Ну я не знаю какая часть фигуры закрашена. Будем считать что прямоугольник находиться в окружности и необходимо из площади курга вычесть площадь прямоугольника. const p =3.14; var a,b,r,s1,s2:real; begin Writeln('Введите длины сторон прямоугольника'); readln(a,b); Writeln('Введите радиус окуржности'); Readln(r); s1:=a*b; s2:=p*sqr(r); Writeln('Площадь закрашеной окружности = ', s2-s1); end.
Если закрашена какая-то другая область то можете просто изменить действие с площадями в предпоследней строчке ( в данном случае мы из s2 вычитаем s1).
sr:real;
kol,i:integer;
begin
for i:=1 to 50 do
readln(a[i]);
kol:=0;
sr:=0;
i:=5;
while i<=50 do
begin
sr:=sr+a[i];
kol:=kol+1;
i:=i+5;
end;
writeln(sr/kol);
end.