(Сам и контр)

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

Босова, Босова, Аквилянов

11 класс

Автор

Босова, Босова, Аквилянов

Оцени решение

← Предыдущий Следующий →

Сообщить об ошибке

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

Задача

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 и проверьте.

Подробный ответ

Нужно пройти по всем индексам $$i = 1, 2, \dots, 100$$ и сравнить элементы массивов $$A[i]$$ и $$B[i]$$. Для каждого случая увеличиваем соответствующий счётчик:

$$A[i] < B[i]$$ — счётчик $$k1$$;
$$A[i] = B[i]$$ — счётчик $$k2$$;
$$A[i] > B[i]$$ — счётчик $$k3$$.

После просмотра всех элементов выводим значения счётчиков.

program s4_v2_4;
var
  b, a: array[1..100] of integer;
  k1, k2, k3, i: integer;
begin
  k1 := 0; k2 := 0; k3 := 0;
  randomize;
  for i := 1 to 100 do
    b[i] := random(100);
  for i := 1 to 100 do
    a[i] := random(100);
  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.