Блок схема Дан двумерный числовой массив. Вывести на печать номера его строк, содержащих только положительные элементы

299

448

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

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

Elton17

Информатика

4,6(25 оценок)

Const n = 10; var a: array[1..n] of integer; i,max,s: integer; begin randomize; s: =0; write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(21)-10; write(' ',a[i]); end; writeln; max: =1; for i: = 2 to n do if a[i]> a[max] then max: =i; writeln('max = a[',max,'] = ',a[max]); for i: = max+1 to n do s: =s+a[i]; writeln('сумма элементов, стоящих за максимальным: ',s) end. пример: исходный массив: -4 10 7 5 6 10 -5 -8 -5 3 max = a[2] = 10 сумма элементов, стоящих за максимальным: 13