Задание 4 Вариант 2 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

4. Напишите программу. Дано два целочисленных массива А[1..100] и В[1..1ОО], значения элементов которых принадлежат промежутку [0; 100). Подсчитайте количество таких і, для которых:

1) A[j] В[і].

Запишите результат.

program s4_v2_4;

var

b,a : array[1..100] of integer;

k1,k2,k3,i: integer;

begin

k1:=0; k2:=0; k3:=0;

writeln(taskввод массиваtask);

randomize;

for i := 1 to 100 do

begin

b[i] := random(100);

//writeln(taskb[task, i, task]=task, b[i])

end;

writeln;

for i := 1 to 100 do

begin

a[i] := random(100);

//writeln(taska[task, i, task]=task, a[i])

end;

for i:=1 to 100 do

begin

if a[i]

if a[i]=b[i] then k2:=k2+1;

if a[i]>b[i] then k3:=k3+1

end;

Writeln(taskk1=task,k1,task k2=task,k2,task k3=task,k3)

end.

1) k1=46 2) k2=3 3) k3-=51

Совет.

Так как массивы формируются случайными числами, скопируйте программу и выполните. Для того, чтобы увидеть массивы можно убрать // перед выводами. Но, это очень длинные массивы. Сократите до 10 и проверьте.