Регистрация
Soulwax
07.08.2020 00:48
Информатика
Есть ответ 👍

Напишите програму в паскаль, ) в одномерном массиве из 10 элементов найти максимальный и вычислить сумму всех, которые стоят за максимамальным

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

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

Elton17
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
kuprianova24012
kuprianova24012
4,4(100 оценок)
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! const n=10; begin   var a: =arrrandom(n,-99,99); a.println;   var imax: =a.indexmax;   var s: =imax=n-1? 0: a[imax+1: ].sum;   writeln('max=',a[imax],', s=',s) end. пример 6 42 -29 62 94 -7 83 -32 45 -72 max=94, s=17
Лена200115
Лена200115
4,5(4 оценок)
254 : 2 = 127 (остаток от деления 0) 127 : 2 = 63 ( остаток от деления 1) 63 : 2 = 31 ( остаток от деления 1)  31 : 2 = 15 ( остаток от деления 1) 15 : 2 = 7 ( остаток от деления 1) 7 : 2 = 3 ( остаток от деления 1) 3 : 2 = 1 ( остаток от деления 1) остаток от деления записывается в обратном порядке, получаем: 254 = 11111110

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