Задание 4 Вариант 2 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
![Изображение 4. Напишите программу. Дано два целочисленных массива А[1..100] и В[1..1ОО], значения элементов которых принадлежат промежутку [0; 100). Подсчитайте количество таких і,...](/reshebniki/informatika/11/WBbosova/images1/sam4/2/4.png "Изображение ответа 4. Напишите программу. Дано два целочисленных массива А[1..100] и В[1..1ОО], значения элементов которых принадлежат промежутку [0; 100). Подсчитайте количество таких і,...")
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:
4. Напишите программу. Дано два целочисленных массива А[1..100] и В[1..1ОО], значения элементов которых принадлежат промежутку [0; 100). Подсчитайте количество таких і, для которых:
1) A[j] < В[і]; 2) А[і] = В[і]; 3) А[і] > В[і].
Запишите результат.
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('ввод массива');
randomize;
for i := 1 to 100 do
begin
b[i] := random(100);
//writeln('b[', i, ']=', b[i])
end;
writeln;
for i := 1 to 100 do
begin
a[i] := random(100);
//writeln('a[', i, ']=', a[i])
end;
for i:=1 to 100 do
begin
if a[i] < b[i] then k1:=k1+1;
if a[i]=b[i] then k2:=k2+1;
if a[i] > b[i] then k3:=k3+1
end;
Writeln('k1=',k1,' k2=',k2,' k3=',k3)
end.
1) k1=46 2) k2=3 3) k3-=51
Совет.
Так как массивы формируются случайными числами, скопируйте программу и выполните. Для того, чтобы увидеть массивы можно убрать // перед выводами. Но, это очень длинные массивы. Сократите до 10 и проверьте.
Похожие решебники
Популярные решебники 11 класс Все решебники
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением