Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Паскаль -двумерные массивы

Паскаль -двумерные массивы - вопрос №790702

Дан двумерный массив 4х7 (числа вводятся с клавиатуры). Составить программу, которая выведет на экран максимальное число в каждой строке. 

СветланаСеребряный
14.10.13
Учеба и наука / Информатика
1 ответ
двумерный массив

Лучший ответ по мнению автора

Валентина

program pr;

uses crt;

var a:array[1..4,1..7] of integer;

i,j:integer;

b:array[1..4] of integer;

begin

  clrscr;

  writeln('vvedite massiv');

  for i:=1 to 4 do

  begin 

     for j:=1 to 7 do 

        readln(a[i,j]);

      b[i]:=a[i,1];

  end; 

    for i:=1 to 4 do

    for j:=1 to 7 do

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

     writeln('ishodny massiv');

     for i:=1 to 4 do

    begin 

    for j:=1 to 7 do

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

   writeln;

    writeln('max chisla strok');

    for i:=1 to 4 do

    writeln(b[i]);

  readln;

end.

Буду благодарна, если отметите 

   
14.10.13
Лучший ответ по мнению автора

Еva
от 100 p.
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее