Question

Задать два целочисленных массива одинакового размера (не более 21 элементов).Вывести исходные массивы на экран. Сформировать новый массив , явл. целой частью от деления первого массива на второй . Вычислить кол-во нечетных элементов каждого массива(Я вообще не понимаю этот чертов ПАСКАЛЬ, выручайте)

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

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= 13

72 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

Answer 2

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.