Заполнить с клавиатуры массив словами разного размера и заменяет в нем самое длинное слово на "МАХ"

@Александр174 · Регистрация: 19.02.2015

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

Напишите программу, которая заполняет с клавиатуры массив А(3,3) словами разного размера и заменяет в нем максимальное по длине слово на слово «МАХ». Выведите на экран исходный и полученный массивы.

Заранее спасибо!

@ZX Spectrum-128 · 19.02.2015, 19:20

Pascal

const
  n=3;
var
  a:array[1..n,1..n] of string;
  i,j,max,imax,jmax:integer;
  s,t:string;
begin
  for i:=1 to n do
    for j:=1 to n do
      begin
        write('Введите слово: ');  readln(a[i,j]);
      end;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:24);
      writeln;
    end;
 
  imax:=1;  jmax:=1;
  max:=length(a[1,1]);
  for i:=1 to n do
    for j:=1 to n do
      if length(a[i,j])>max then
        begin
          max:=length(a[i,j]);
          imax:=i;
          jmax:=j;
        end;
  writeln('Самое длинное слово: ',a[imax,jmax]);
  s:='MAX';
  t:=a[imax,jmax];
  a[imax,jmax]:=s;
  s:=t;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:24);
      writeln;
    end;
 
  readln;
end.

@Александр174 0 / 0 / 0 Регистрация: 19.02.2015 Сообщений: 7
		1
	Заполнить с клавиатуры массив словами разного размера и заменяет в нем самое длинное слово на "МАХ" 19.02.2015, 19:02. Показов 3194. Ответов 1 Метки нет (Все метки) Напишите программу, которая заполняет с клавиатуры массив А(3,3) словами разного размера и заменяет в нем максимальное по длине слово на слово «МАХ». Выведите на экран исходный и полученный массивы. Заранее спасибо! 0

	19.02.2015, 19:20

Заполнить с клавиатуры массив словами разного размера и заменяет в нем самое длинное слово на "МАХ"

Решение