Var
i:integer;
a:array[10..20]of integer;
begin
writeln('Исходный массив:');
for i:=10 to 20 do
begin
a[i]:=random(23);
writeln(a[i]);
end;
for i:=10 to 20 do
if (a[i]>=10) and (a[i]<=20) then a[i]:=a[i]*5;
writeln('Преобразованный массив:');
for i:=10 to 20 do
writeln(a[i]);
<span>end.</span>
Ярлык? больше ничего в голову не лезет.
7, 8, 9, 10, 11 - всего 5 штук
В начале S=0 и дальше 5 раз прибавляем 11
Вывод:
Ответ 55
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal('Вводите:', ReadInteger('Количество чисел?'));
var imax := a.IndexMax;
Writeln('Первое максимальное число ', a[imax],
' имеет номер ', imax + 1)
end.
<h2>Пример</h2><h3>Количество чисел? 5</h3><h3>Вводите: 14 2.17 15.2 8 15.2</h3><h3>Первое максимальное число 15.2 имеет номер 3</h3>