ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО!!! 1. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35. Найти сумму элементов данного массива. 2. Заполнить одномерный массив, состоящий из ...
ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО!!! 1. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
Гость
Ответ(ы) на вопрос:
ГостьДва в одном: var a: array [1..10] of integer; s, i, max: integer; begin max:= - 16; for i:= 1 to 10 do begin a[i]:= random(50) - 15; writeln(a[i]); s:= s + a[i]; if a[i] > max then max:= a[i]; end; writeln('Сумма элементов массива: ', s); writeln('Максимальный элемент массива: ', max); end.
Гость program Mas1; uses Crt; const n:=10; Type Ar=array [1..n] of real; var v:Ar; s,max:real; i:integer; Begin Clrscr; s:=0; max:=0; i:=1; For i:=1 to n do begin v[i]:=50*random-15; s:=s+v[i]; If max
Не нашли ответ?
Похожие вопросы