Дана действительная матрица размерности 3х5. сформировать одномерный массив минимумов по строкам данной матрицы .

150

392

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

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

Logas25743

Информатика

4,8(85 оценок)

Var mas: array [1..3,1..5] of real; minmas: array [1..3] of real; i,j: integer; begin for i: =1 to 3 do for j: =1 to 5 do read(mas[i,j]); for i: =1 to 3 do begin minmas[i]: =mas[i,1]; for j: =2 to 5 do begin if mas[i,j]< minmas[i] then minmas[i]: =mas[i,j]; end end; for i: =1 to 3 do write(minmas[i],' '); end.

lexa123assasin

Информатика

4,4(100 оценок)

Program project1; var m: array of integer; res, n, i: integer; begin repeat write('n: '); readln(n); setlength(m, length(m)+1); m[length(m)-1]: =n; until n=0; res: =0; for i: =1 to length(m)-1 do if m[i]< 0 then res: =res+m[i]; writeln('result: =', res); readln; end.