var a,b,c:array [1..21] of integer;
i,n,ka,kb,kc:integer;
begin
write ('Введите количество элементов массива (не более 21 элементов): ');
readln (n);
for i:=1 to n do
begin
a[i]:=random (199)-99;
b[i]:=random (21)-10;
c[i]:=a[i] div b[i];
if a[i] mod 2 <> 0 then ka:=ka+1;
if b[i] mod 2 <> 0 then kb:=kb+1;
if c[i] mod 2 <> 0 then kc:=kc+1
end;
write ('1-й массив: ');
for i:=1 to n do write(a[i]:3,' ');
writeln;
write ('2-й массив: ');
for i:=1 to n do write(b[i]:3,' ');
writeln;
write ('3-й массив: ');
for i:=1 to n do write(c[i]:3,' ');
writeln;
write ('Количество нечётных элементов в 1-м массиве: ',ka,'; во 2-м массиве: ',kb,'; в 3-м массиве: ',kc)
end.
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, -99, 99);
a.Println;
var b := SeqRandom(n, -10, 10).Select(t -> t = 0 ? 1 : t).ToArray;
b.Println;
var c := a.Zip(b, (p, q)-> p div q).ToArray;
c.Println;
Print('Нечетных элементов:');
a.Where(t -> t.IsOdd).Count.Print;
b.Where(t -> t.IsOdd).Count.Print;
c.Where(t -> t.IsOdd).Count.Println;
end.
n= 1372 94 79 3 15 -82 72 -72 14 -79 23 -48 26-6 9 3 10 -2 10 -3 -7 5 -4 -6 7 -1-12 10 26 0 -7 -8 -24 10 2 19 -3 -6 -26Нечетных элементов: 5 7 3
Const
N = 15;
M = 10;
Var
A:array[1..N,1..M] of real;
i,j:integer;
S3,S7:real;
Begin
Randomize;
ClrScr;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random*13;
Write(A[i,j]:6:3,' ')
End;
WriteLn
End;
S3:=0;
S7:=0;
For j:= 1 to M do
Begin
S3:=S3+A[3,j];
S7:=S7+A[7,j];
End;
WriteLn('S3 = ',S3:0:3);
WriteLn('S7 = ',S7:0:3);
if S3 > S7 then WriteLn('S3 > S7')
else if S3 < S7 then WriteLn('S3 < S7')
else WriteLn('S3 = S7');
ReadLn
End.