Найти сумму всех элементов двумерного массива, больших первого элемента этого массива? язык программирования -- паскаль.

112

366

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

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

buzaeva2013

Информатика

4,7(27 оценок)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('количество строк в массиве: '); var m: =readinteger('количество столбцов в массиве: '); writeln('*** исходный массив [',n,',',m,'] ***'); var a: =matrrandom(n,m,-99,99); a.println(4); writeln(4*a.colcount*'-'); var a1: =a[0,0]; writeln('s=',a.elementsbyrow.skip(1).where(x-> x> a1).sum) end. пример количество строк в массиве: 4 количество столбцов в массиве: 5 *** исходный массив [4,5] *** 35 24 93 -58 -89 -51 -55 -83 49 -92 -90 89 68 28 -60 46 -57 53 -78 -42 s=398

aliyaulanova1

Информатика

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

Const n = 3; m = 4; var a: array[1..n,1..m] of integer; i,j: integer; s: real; begin randomize; s: =0; writeln('исходный массив: '); for i: = 1 to n do begin for j: = 1 to m do begin a[i,j]: =random(21)-10; write(a[i,j]: 4) end; writeln end; for i: = 1 to n do for j: = 1 to m do if a[i,j]> a[1,1] then s: =s+a[i,j]; writeln('s = ',s); end.

98653240

Информатика

4,7(15 оценок)

Влюбую ячейку пишешь "=в3*в4" (без кавычек, например в1) в ячейку в3 - курс рубля (38,01 например) в ячейку в4 - количество долларов (5 например) и в ячейке в1 появляется сумма, сколько будет в рублях 5 долларов по текущему курсу ; )