В разделе описаний добавь еще одну переменную с типа integer и вместо последних 9-ти строк твоей программы должно быть:
{заполняем массив b минимальными элементами каждой строки} for i := 1 to 5 do begin for j := 1 to 5 do if a[i,j] < b[i] then b[i] := a[i,j]; Write(b[i], ' ') end; WriteLn; {сортируем массив b} for i := 1 to 4 do for i+1 := 1 to 5 do if b[i] < b[j] then begin c := b[i]; b[i] := b[j]; b[j] := c end; {выводим отсортированный массив на экран} for i := i to 5 do Write(b[i], ' '); WriteLn END.
Объективность=Эти брюки стоят три тысячи рублей необъективность=Эти брюки дорого стоят Достоверность= все ныне живущие люди умрут недостоверность=люди бессмертны полнота=Ира, моя родная сестра, приехала погостить на пару дней неполнота=девушка актуальность=на вашем счёте 2 рубля неактуальность=в 1894 на счёте вашего прапрадедушки было семь шекелей ценная информация=хорошо написанная статья о том как вылечить больную печень. эта информация ценна для пьяницы не ценная=та же статья но для здорового шахтёра в уральских горах ценна не будет понятная информация=в долларе 56,89 рубля непонятная информация=ドル56.89ルーブル
и вместо последних 9-ти строк твоей программы должно быть:
{заполняем массив b минимальными элементами каждой строки}
for i := 1 to 5 do
begin
for j := 1 to 5 do if a[i,j] < b[i] then b[i] := a[i,j];
Write(b[i], ' ')
end;
WriteLn;
{сортируем массив b}
for i := 1 to 4 do
for i+1 := 1 to 5 do
if b[i] < b[j] then
begin
c := b[i];
b[i] := b[j];
b[j] := c
end;
{выводим отсортированный массив на экран}
for i := i to 5 do Write(b[i], ' ');
WriteLn
END.
необъективность=Эти брюки дорого стоят
Достоверность= все ныне живущие люди умрут
недостоверность=люди бессмертны
полнота=Ира, моя родная сестра, приехала погостить на пару дней
неполнота=девушка
актуальность=на вашем счёте 2 рубля
неактуальность=в 1894 на счёте вашего прапрадедушки было семь шекелей
ценная информация=хорошо написанная статья о том как вылечить больную печень. эта информация ценна для пьяницы
не ценная=та же статья но для здорового шахтёра в уральских горах ценна не будет
понятная информация=в долларе 56,89 рубля
непонятная информация=ドル56.89ルーブル