Алгоритм ол действия осындай 1)мен уйге келдым 2)кырдым 3)сабак ыстедым 4)уыйктадым. Алгоритм ол действия
var n,m,i,s1,s2:integer;
p1,p2,p:real;
a,b:array[1..10] of integer;
begin
write('n=');read(n);
write('m=');read(m);writeln;
for i:=1 to n do begin
write('a[',i,']= ');
readln(a[i]);
end;
for i:=1 to m do begin
write('b[',i,']= ');
readln(b[i]);
end;writeln;
s1:=0;
for i:=1 to n do s1:=s1+a[i];
p1:=s1/n; p1:=int(p1);
writeln('Srednee arifmeticheskoe massiva A=',p1);
s2:=0;
for i:=1 to m do
s2:=s2+b[i];
p2:=s2/m;p2:=int(p2);
writeln('Srednee arifmeticheskoe massiva B=',p2);
p:=p1+p2;
if p1=p2 then write('A=B') else begin
if p1>p2 then write('A>B') else write('A<B');
end;
end.
Var
i, n: integer;
s: longint;
begin
readln(n);
for i := 1 to n do
s := s + (n + i) * (n + i);
writeln(s);
end.
Varn,k,a,b,c,g:integer;e:real;Beginwriteln('Количество яблонь: ');read(n);writeln('Содержание 1-ой яблони в рублях: ');read(k);writeln('Наценка на 1кг в процентах: ');read(g);a:=0;randomize;for c:=1 to n dobeginb:=random(20)+30;a:=a+bend;e:=k*g/100*a;writeln('Урожай составил ',a,' кг яблок.');writeln('Прибыль с проажи ',a,' кг яблок: ',e,' рублей.');end.
Винчестер *********************************************************************************************