Question

Помогите написать программу по информатике на паскале. Создать с клавиатуры массив из трех чисел-первое число от 1 до 25, второе от 26 до 50, третье от 51 до 100. Создать второй массив случайным образом по таким же правилам. Сравнить эти числа и написать сколько совпало

Answer 1

Type mas=array[1..3] of integer;
var a,b:mas;
i,k:integer;
procedure proc(var x:mas);
var i:integer;
begin
x[1]:=random(25)+1;
x[2]:=random(25)+26;
x[3]:=random(50)+51;
for i:=1 to 3 do write(x[i],' ');
writeln;
end;
begin
randomize;
writeln('1-й массив:');
proc(a);
writeln('2-й массив:');
proc(b);
k:=0;
for i:=1 to 3 do
 if a[i]=b[i] then k:=k+1;
writeln('Число совпавших элементов = ',k);
end.

Пример:
1-й массив:
6 29 58
2-й массив:
21 29 63
Число совпавших элементов = 1

Answer 2

Var a,b:array[1..3] of integer;
begin
a[1]:=Random(26); b[1]:=Random(26);
a[2]:=Random(26)+25; b[2]:=Random(26)+25;
a[3]:=Random(51)+50; b[3]:=Random(51)+50;
writeln(a[1],' ',a[2],' ',a[3]);
writeln(b[1],' ',b[2],' ',b[3]);
if (a[1]=b[1]) and (a[2]=b[2]) and (a[3]=b[3])
then writeln('Совпало 3')
else
if ((a[1]=b[1]) and (a[2]=b[2])) or ((a[2]=b[2]) and (a[3]=b[3])) or ((a[1]=b[1]) and (a[3]=b[3]))
then writeln('Совпало 2')
else
if (a[1]=b[1]) or (a[2]=b[2]) or (a[3]=b[3])
then writeln('Совпало 1')
else writeln('Совпадений нет');
end.

P.S Писал не на компьютере, возможны ошибки, проверьте и в случае если обнаружатся ошибки, напишите мне

Answer 3

Для написания программы на Паскале, которая создает два массива и сравнивает их числа, можно использовать следующий код:

program CompareArrays;

var
  array1: array[1..3] of Integer;
  array2: array[1..3] of Integer;
  i, count: Integer;

begin
  // Ввод чисел для первого массива
  writeln('Введите числа для первого массива:');
  for i := 1 to 3 do
  begin
    write('Число ', i, ': ');
    readln(array1[i]);
  end;

// Генерация случайных чисел для второго массива
  Randomize;
  writeln('Случайные числа для второго массива:');
  for i := 1 to 3 do
  begin
    array2[i] := Random(50) + 51; // Генерация чисел от 51 до 100
    writeln('Число ', i, ': ', array2[i]);
  end;

// Сравнение чисел и подсчет совпадений
  count := 0;
  for i := 1 to 3 do
  begin
    if array1[i] = array2[i] then
      count := count + 1;
  end;

// Вывод результата
  writeln('Количество совпадений: ', count);
end.

В этой программе мы используем два массива: `array1` и `array2`. Пользователь вводит числа для первого массива с клавиатуры, а для второго массива мы генерируем случайные числа в диапазоне от 51 до 100. Затем мы сравниваем числа в обоих массивах и подсчитываем количество совпадений.

Примечание: В коде используется функция `Randomize`, чтобы инициализировать генератор случайных чисел, и функция `Random`, чтобы генерировать случайные числа в заданном диапазоне.

Надеюсь, эта программа поможет вам. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их!