begin sum := 0; i := 1; repeat Write('Введите число = '); Readln(a); sum := sum + a; i := i + 1; until i > n;
Writeln('Среднее арифметическое = ', sum / n); end. //2 const n = 10;
var a, sum, i: integer;
begin sum := 0; i := 1; while i <= n do begin Write('Введите число = '); Readln(a); sum := sum + a; i := i + 1; end; Writeln('Среднее арифметическое = ', sum / n); end. //3 const n = 10;
var a, i, sum: integer;
begin sum := 0; for i := 1 To n Do begin Write('Введите число = '); Readln(a); Sum := Sum + a; end; Writeln('Среднее арифметическое = ', sum / n); end.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 type Matrix=array[,] of integer;
procedure MatPrint(a:Matrix; w:integer); begin for var i:=0 to Length(a,0)-1 do begin for var j:=0 to Length(a,1)-1 do Write(a[i,j]:w); Writeln end end;
procedure MatProd(a,b,c:Matrix); begin for var i:=0 to Length(a,0)-1 do for var j:=0 to Length(b,1)-1 do begin var s:=0; for var k:=0 to Length(a,1)-1 do s+=a[i,k]*b[k,j]; c[i,j]:=s end end;
begin var a,b,c:Matrix; var m,n,p:integer; Write('Число строк матрицы А: '); Read(n); Write('Число столбцов матрицы А и строк матрицы В: '); Read(m); Write('Число столбцов матрицы В: '); Read(p); a:=MatrixRandom(n,m,-50,50); Writeln('Матрица А'); MatPrint(a,4); b:=MatrixRandom(m,p,-50,50); Writeln('Матрица B'); MatPrint(b,4); SetLength(c,n,p); Writeln('Матрица C'); MatProd(a,b,c); MatPrint(c,7) end.
const
n = 10;
var
a, i, sum: integer;
begin
sum := 0;
i := 1;
repeat
Write('Введите число = ');
Readln(a);
sum := sum + a;
i := i + 1;
until i > n;
Writeln('Среднее арифметическое = ', sum / n);
end.
//2
const
n = 10;
var
a, sum, i: integer;
begin
sum := 0;
i := 1;
while i <= n do
begin
Write('Введите число = ');
Readln(a);
sum := sum + a;
i := i + 1;
end;
Writeln('Среднее арифметическое = ', sum / n);
end.
//3
const
n = 10;
var
a, i, sum: integer;
begin
sum := 0;
for i := 1 To n Do
begin
Write('Введите число = ');
Readln(a);
Sum := Sum + a;
end;
Writeln('Среднее арифметическое = ', sum / n);
end.