program raf105;
var i,min,kolN,sumN,sariN:integer;
a:array[1..30] of integer;
begin
writeln('Элементы массива:');
min:=99;
for i:=1 to 30 do
begin
a[i]:= random(1,60);
write(a[i],' ');
if (a[i]<min) and ((a[i] mod 4)=0)
then min:= a[i];
if ((a[i] mod 2)<>0)
then
begin
kolN:= kolN+1;
sumN:= sumN+a[i];
end;
end;
writeln;
if min=99
then min:=0;
sariN:= round(sumN/kolN);
writeln('Минимальное значение среди чётных элементов кратных четырём:');
writeln(min);
writeln('Среднее арифметическое среди нечётных элементов:');
writeln(sariN);
end.
Язык программирования PascalABC
var n,s,i:integer; p:real;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n+1 do s:=s+i*i;
writeln('s = ',s);
p:=1;
for i:=1 to n-5 do p:=p*i*i*i;
writeln('p = ',p);
writeln('s/p = ',s,'/',p,' = ',s/p);
end.
Пример:
n = 10
s = 506
p = 1728000
s/p = 506/1728000 = 0.000292824074074074