Кол-во чисел в массиве которые меньше их порядкового номера
Ответ:
var n,i,a,s,k:Integer;
begin
Write('Введите количество чисел ');
Readln(n);
for i:=1 to n do
begin
Write('Введите целое число ');
Readln(a);
if a mod 2 = 0 then
begin
s:=s+a;
k:=k+1
end
end;
Write('Среднее арифметическое чётных чисел равно ',s/k)
end.
Объяснение:
n - количество целых чисел, которые будут вводиться
i - счётчик цикла
a - вводимое целое число
s - сумма чётных чисел
k - количество чётных чисел
<span><span><span><span /><span /></span></span></span>var
<span><span><span><span>
arr: array[1..100] of integer;
i, n, max: integer;
begin
max:=1;
readln(n);
for i:=1 to n do
begin
arr[i]:=random(100);
write(arr[i], ' ');
if (arr[i]>arr[max]) and (i mod 2<>0) then
max:=i;
end;
writeln;
writeln(arr[max]);
end.
</span></span></span></span>
Ответ:
var a:array [1..14] of real;
i:integer;
s:real;
begin
s:=0;
write('Массив: ');
for i:=1 to 14 do
begin
a[i]:=random()+random(3);
write(a[i]:0:3,' ');
s:=s+a[i]
end;
writeln;
write('Сумма чисел равна ',s:0:3)
end.