Var y: array[1..12] of integer;
i,k:integer; s:real;
begin
for i:=1 to 12 do
read (y[i]);
for i:=1 to 12 do
if y[i] mod 2=0 then
begin
s:=s+y[i];
k:=k+1;
end;
s:=s/k;
write (s:5:1);
end.
А - сканер, б - клавиатура, в - мышь, г - принтер, д - монитор, главное слово наушники
#include <iostream>
<span>using namespace std;</span>
<span>int main()</span>
{
setlocale(LC_ALL,"");
double R,S;
cout<<"Введите радиус окружности: ";
cin>>R;
S=3.14*R*R;
cout<<"Площадь круга = "<<S<<""<<endl;
return 0;
}