// PascalABC.NET 3.2, сборка 1367 от 20.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(10,1,10); a.Println; Writeln('Среднее элементов с четным значением: ', a.Where(x->x.IsEven).Average); Writeln('Среднее элементов с четным номером: ', a.Where((x,i)->i.IsOdd).Average) end.
Пример 9 1 4 8 2 1 10 7 8 5 Среднее элементов с четным значением: 6.4 Среднее элементов с четным номером: 4.4
var a:array[1..100] of integer; i,n,s,k:integer; sr:real; begin writeln('введите кол-во элементов массива'); readln(n); for i:=1 to n do begin a[i]:=random(101)-50; write(a[i]:4);end; writeln; for i:=1 to n do begin if a[i]>10 then write(a[i]:3); if (a[i] mod 2=0) then begin s:=s+a[i]; k:=k+1;end; end; sr:=s/k; writeln; writeln('сред арифмет=',sr:4:2); end.
var i, j, umax, lmax: integer; a: array[1..n, 1..n] of integer;
begin Randomize; writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := Random(40) - 20; write(a[i, j]:4) end; writeln; end; umax := -100; for i := 1 to n do for j := i to n do if umax < a[i, j] then umax := a[i, j]; lmax := -100; for i := 1 to n do for j := 1 to i do if lmax < a[i, j] then lmax := a[i, j]; writeln('Разность максимумов равна ', umax - lmax) end.
Program abc;const a: array [1..5] of array [1..5] of integer = ((1, 15, 24, 8, 17),(9,18,2,11,25),(12,21,10,19,3),(20,4,13,22,6),(23,7,16,5,14));var i, j, x: integer; arr: array [1..12] of integer;begin
for i := 1 to 5 do begin x := 0; for j := 1 to 5 do x := x + a[i][j]; arr[i] := x; end; for i := 1 to 5 do begin x := 0; for j := 1 to 5 do begin x := x + a[j][i]; end; arr[5+i] := x; end; x := 0; for i := 1 to 5 do begin x := x + a[i][i]; end; arr[11] := x; x := 0; for i := 1 to 5 do begin x := x + a[i][6 - i]; end; arr[12] := x; for i := 1 to 12 do begin if arr[i] <> x then begin writeln('Не магический'); break; end; if i = 12 then writeln('Магический.'); end; end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,1,10); a.Println;
Writeln('Среднее элементов с четным значением: ',
a.Where(x->x.IsEven).Average);
Writeln('Среднее элементов с четным номером: ',
a.Where((x,i)->i.IsOdd).Average)
end.
Пример
9 1 4 8 2 1 10 7 8 5
Среднее элементов с четным значением: 6.4
Среднее элементов с четным номером: 4.4