Регистрация
ivanova329
26.05.2020 20:27
Информатика
Есть ответ 👍

Var a, b: integer; tab: array [1..15] of integer; begin randomize; for a : = 1 to 15 do begin tab[a] : = random(-15, 15); writeln(a, ' - элемент = ', tab[a]); end; b : = tab[1]; for a : = 2 to 15 do begin if tab [a] > b then b : = tab[a]; end; writeln('наибольший элемент массива = ', b); end. найти сумму массива. как?

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

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

rita239
rita239
4,5(96 оценок)
Var  a, b, s: integer;   tab: array [1..15] of integer;   begin  randomize;   for a : = 1 to 15 do  begin  tab[a] : = random(-15, 15);   writeln(a, ' - элемент = ', tab[a]);   end;   b : = tab[1]; s: =0; for a : = 1 to 15 do  begin  if tab [a] > b then b : = tab[a];   s: =s+tab[a]; end;   writeln('наибольший элемент массива = ', b);   writeln('s = ',s); end. пример: 1 - элемент = 15 2 - элемент = -10 3 - элемент = 5 4 - элемент = -6 5 - элемент = -14 6 - элемент = -1 7 - элемент = 9 8 - элемент = -7 9 - элемент = 1 10 - элемент = 15 11 - элемент = -4 12 - элемент = -5 13 - элемент = -6 14 - элемент = 7 15 - элемент = 10 наибольший элемент массива = 15 s = 9
samiraizashirin
samiraizashirin
4,6(59 оценок)
Program gt; var n,s,p: integer; begin readln(n); s: =n div 10000+(n mod 100)div 10; p: =(n mod 10)*((n div 1000)mod 10); writeln(s,' ',p); end.

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