Главная страница

Задача Ввести данные из двумерного массива размера N*M. (значения N,M и массив находятся в файле Input txt, см. Ввод)



Скачать 25.13 Kb.
НазваниеЗадача Ввести данные из двумерного массива размера N*M. (значения N,M и массив находятся в файле Input txt, см. Ввод)
Дата09.04.2016
Размер25.13 Kb.
ТипЗадача

Двумерный массив

размера 4*2


2

6

10

5

12

12

4

20


Массив А

A[i,j]-имя элемента массива из строки i, столбца j
20-значение элемента массива A[4,2]

Задача


  1. Ввести данные из двумерного массива размера N*M. (значения N,M и массив находятся в файле Input.txt, см. ВВОД),

  2. Найти и напечатать максимальные значения элементов в строках

  3. Найти и напечатать значения сумм значений элементов в строках

  4. Вывести данные из двумерного массива в файл Output.txt(см ВЫВОД)

ВВОД


4 2

2 6

10 5

12 12

4 20

ВЫВОД

2 6

10 5

12 12

4 20

6 10 12 20

8 15 24 24

Var a:array[1..100,1..50] of integer;

i,j,N,M,max,s:integer;

Mmax,Ms:array[1..100] of integer;

begin

assign(input,'Input.txt');reset(input);

assign(output,'output.txt');rewrite(output);

readln(N,M);

{Ввод данных в двумерный массив по строкам}

for i:=1 to N do

begin

for j:=1 to M do

begin

read(a[i,j]);

end;

readln;

end;

{Нахождение максимумов в строках}

for i:=1 to N do

begin

max:=a[i,1];

for j:=1 to M do

begin

if a[i,j]> max then max:=a[i,j];

end;

Mmax[i]:=max;

end;

{Нахождение сумм в строках}

for i:=1 to N do

begin

s:=0;

for j:=1 to M do

begin

s:=s+a[i,j];

end;

Ms[i]:=s;

end;

{Вывод данных из двумерного массива по строкам }

for i:=1 to N do

begin

for j:=1 to M do

begin

write(a[i,j]:5);

end;

writeln;

end;

for i:=1 to N do{Вывод максимумов}

begin

write(Mmax[i]:6);

end;

writeln;

for i:=1 to N do{Вывод сумм}

begin

write(Ms[i]:6);

end;

writeln;

close(input);

close(output);

end.

  1. Описать целочисленный массив А размера 12*20;

  2. Ввести построчно весь массив

  3. Значения элементов 1 строки вывести в на экран

  4. Вывести на экран значения всех элементов 1 столбца

  5. Значение 1-го элемента 2 й строки изменить на 0

  6. Остальные элементы 2 строки заменить на 1

  7. Вывести на экран элементы 2 строки

  8. Найти и вывести сумму элементов 2 столбца

  9. Найти и вывести в значение максимального элемента 2 столбца

  10. Подсчитать и вывести количество нечетных элементов в 4-й строке

  11. Вывести значения всех элементов массива на экран

ВВОД

1 3 6

2 1 5

6 8 1

4 2 3


ВЫВОД

1 3 6

1 2 6 4

0 1 1

14

8

1

1 3 6

0 1 1

6 8 1

4 2 3