var a, b:Integer; tab: array [1..15] of Integer; begin randomize; for
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] gt; b then b := tab[a];
end;
writeln('величайший элемент массива = ', b);
end.
Отыскать сумму массива. Как?
1 ответ
Александра Арафулина
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] gt; 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
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] gt; 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
Игорек Фаломин
А почему каждый раз выдаёт различную сумму?
Саша Тарийский
Поэтому что элементы массива каждый раз различные.
Максим Немчиков
Спасибо
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов