прикладная программа для выполнения на компьютере конкретных задач :
Это ПРИЛОЖЕНИЕ.
program massiv;
var b:array[1..100]of integer;
r,n,m,i,p,k,a:integer;
begin
randomize;writeln ('a=');readln(a);
writeln('n=');readln(n);
for i:=1 to n do begin
b[i]:=random(50)-25;
writeln('a[',i,']=');
if b[i]>0 then begin r:=r+b[i];p:=r*2;
if b[i]>a then k:=k+1;
if ((b[i]<a)and(b[i]>0)) then m:=m+1;
end;end;writeln('удвоенная сумма положительных элементов ',p);
writeln('kол-во элементов массива , значения которых больше заданного числа',k);
writeln('количество положительных элементов не превсходящих заданного числа',m);
end.
1туда 2 кота
2туда сабаку
3туда 2 гусей обратно 2 котов
4туда гуся
5туда 2 кота
Десять итераций увеличения s на 2
s = 20
Uses crt;
var s:real; n,i,k:integer;
Begin
clrscr;
Write('n='); readln(n);
s:=0;
k:=0;
for i:=1 to n do
if i mod 2=0 then begin
s:=s+i;
k:=k+1;
end;
s:=s/k;
writeln('srednee=',s);
writeln;
End.