Изучить панель инструментов редактора Paint и записать их назначение в тетрадь

Question

Информатика: Изучить панель инструментов редактора Paint и записать их назначение в тетрадь

annayotubeanna · Accepted Answer

Var a:array[1..7]of integer;
p3,p5,s,i,k,min,n:integer;
srz:real;
begin
p5:=1; p3:=1; min:=25;
for i:=1 to 7 do
begin
read(a[i]);
if a[i]<>0 then
begin
    if a[i] mod 5=0 then p5:=p5*a[i];
   if a[i] mod 3=0 then p3:=p3*a[i];
   if a[i] mod 2=0 then
     begin
   s:=s+a[i];
      k:=k+1;
     end;
   if a[i]<min then
   begin
      min:=a[i];
      n:=i;
     end;
end;
end;
srz:=s/k;
writeln;
write('proizv kratnih trem:',p3,' proizv kratnih peti:',p5,' srednee znachenie chet elementov:',srz,' minimalnoe:',min,' nomer minimalnogo:',n);
end.

MOGZ ответил