Опубликовано 5 лет назад по предмету Информатика от xofefy

Задание выполнить на языке Паскаль, На Паскале двумерный массив статический.
Дана прямоугольная таблица вещественных чисел. Среди сумм элементов строк найти значение максимальной.

Ответ

Ответ дан raf1O5

program raf105;
const
Ns = 3; //Длинна столбца
Nc = 4; //Длинна строки
var
a:array[1..Ns,1..Nc] of real;
sums,max:real;
i,j:integer;
begin
max:= -(9**38);
for i:=1 to Ns do
begin
if sums > max
then max:= sums;
sums:= 0;
for j:=1 to Nc do
begin
write('Введите значение элемента ',i,' строки, ',j,' солбца: ');
readln(a[i,j]);
sums += a[i,j];
end;
end;
writeln;
writeln('Максимальная сумма элементов из одной строки: ',max);
end.

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают