Регистрация
hfb1
15.07.2022 00:46
Информатика
Есть ответ 👍

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

212
307
Посмотреть ответы 2

Ответы на вопрос:

superguluagina
superguluagina
4,8(85 оценок)
Nbsp;                                                                            

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.

                                                                             
alusik2005
alusik2005
4,8(82 оценок)
Uses crt; var x: array[1..10]of real; i: integer; min,max: real; begin clrscr; min: =9999999; max: =-9999999; for i: =1 to 10 do begin x[i]: =exp(i*(-1))*(sqr(i)-3*i); if x[i]< min then min: =x[i]; if x[i]> max then max: =x[i]; writeln(x[i]: 1: 5); end; writeln('измененный массив с максимальным=',max: 1: 5,' и минимальным=',min: 1: 5); for i: =1 to 10 do begin if x[i]=min then writeln(max: 1: 5); if x[i]=max then writeln(min: 1: 5); if (x[i]< > min)and(x[i]< > max)then writeln(x[i]: 1: 5); end; end.

Популярно: Информатика