Var n,s,k,i : integer; Begin writeln ('Введите кол-во чисел'); readln (n); for i:=1 to n do begin writeln ('Введите ',i,' число'); readln (k); s:=s+k; end; writeln ('Среднее арифметическое =',s/n:5:2); End.
var a:array [1..9] of real; i,k:integer; j:real; begin randomize; writeln('Массив:'); for i:=1 to 9 do begin a[i]:=(random(410)+100)/10; write(a[i],' '); end; writeln; writeln('Массив после увелечения минимального элемента на 100:'); k:=1; for i:=2 to 9 do if a[i]<a[k] then k:=i; a[k]:=a[k]+100; for i:=1 to 9 do write(a[i],' '); writeln; writeln('Массив после престановки максиального элемента с первым:'); j:=a[1]; a[1]:=a[k]; a[k]:=j; for i:=1 to 9 do write(a[i],' '); writeln; end.
3 задание var a:array [1..10] of integer; i,mn,mx:integer; begin writeln('Введите массив:'); for i:=1 to 10 do readln(a[i]); mn:=1; mx:=1; writeln('Массив'); for i:=1 to 10 do begin if a[i]<a[mn] then mn:=i; if a[i]>a[mx] then mx:=i; write(a[i],' '); end; i:=a[mx]; a[mx]:=a[mn]; a[mn]:=i; writeln; writeln('Массив после престановки:'); for i:=1 to 10 do write(a[i],' '); writeln; end.
Var n,s,k,i : integer;
Begin
writeln ('Введите кол-во чисел');
readln (n);
for i:=1 to n do
begin
writeln ('Введите ',i,' число');
readln (k);
s:=s+k;
end;
writeln ('Среднее арифметическое =',s/n:5:2);
End.