Дана прямоугольная матрица размерности MxN [0,100]. Сформировать одномерный массив, в который занести номера тех строк, в которых есть одинаковые элементы. Если таких строк нет, то вывести соответствующее сообщение. Паскаль

Olyecvh Olyecvh    1   02.06.2021 10:02    10

Ответы
olya75357 olya75357  02.07.2021 10:03

FreePascal

const

 n=10;

var

 a : array [0..n] of integer;

 i : integer;

begin

 writeln('Введите массив A: ');

 for i:=0 to n-1 do begin

   write('a[',i,']=');

   readln(a[i]);

 end;

 for i:=0 to n-1 do write(a[i], ' ');

 writeln();

 writeln('a[0] + a[1]=', a[0]+a[1]);

 writeln('a[0] - a[9]=', a[0]-a[9]);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика