Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых А[i] = B[i].

@linza · Регистрация: 30.05.2013

Студворк — интернет-сервис помощи студентам

@Striker · 31.05.2013, 08:25

Pascal

const
  n = 5;
 
var
  a, b: array[1..n] of integer;
  i, j: integer;
 
begin
  for i := 1 to n do
  begin
    a[i] := random(9);
    b[i] := random(9);
    write(a[i]:4);
  end;
  Writeln;
  
  for i := 1 to n do
  begin
    if (a[i] = b[i]) then
      inc(j);
    write(b[i]:4);
  end;
  Writeln;
  Writeln('Количество А[i] = B[i] = ', j);
end.

@linza 0 / 0 / 0 Регистрация: 30.05.2013 Сообщений: 9
		1
	Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых А[i] = B[i]. 31.05.2013, 00:14. Показов 1933. Ответов 1 Метки нет (Все метки) Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых А[i] = B[i]. 0

	31.05.2013, 08:25

Опции темы

Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых А[i] = B[i].

Решение