Сравнить два одномерных массива из целых чисел

@4uki · Регистрация: 19.03.2010

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

Сравнить между собой два одномерных массива из целых чисел (0 и 1). Количество элементов массива - 7. Если массивы равны, то присваивается некоторое число. Первый массив вводится с клавиатуры, а второй - уже задан в программе (я записала второй массив как М0[1]:=1 M0[2]:=0 M0[3]:=1 M0[4]:=1 M0[5]:=1 M0[6]:=1 M0[7]:=1).

@koorya · 19.03.2010, 16:43

Pascal

uses crt;
var
   i:integer;
   a:boolean;
   m,m0:array [1..7] of integer;
begin
  clrscr;
  a:=true;
  for i:=1 to 7 do
      readln(m[i]);
  m0[1]:=1;
  m0[2]:=0;
  for i:=3 to 7 do
      m0[i]:=1;
  for i:=1 to 7 do
      if m[i]<>m0[i] then
         a:=false;
  if a then
     writeln('ravni')
  else
      writeln('ne ravni');
    readln;
end.

я не воткнул чему там число присваивается...

@4uki 0 / 0 / 0 Регистрация: 19.03.2010 Сообщений: 5
		1
	Сравнить два одномерных массива из целых чисел 19.03.2010, 15:56. Показов 2298. Ответов 1 Метки нет (Все метки) Сравнить между собой два одномерных массива из целых чисел (0 и 1). Количество элементов массива - 7. Если массивы равны, то присваивается некоторое число. Первый массив вводится с клавиатуры, а второй - уже задан в программе (я записала второй массив как М0[1]:=1 M0[2]:=0 M0[3]:=1 M0[4]:=1 M0[5]:=1 M0[6]:=1 M0[7]:=1). 0

	19.03.2010, 16:43

Опции темы

Сравнить два одномерных массива из целых чисел

Решение