var a:array[1..20] of integer;
i,j,k,l,s:integer;
begin
for i:=1 to 20 do begin
randomize;
a[i]:=random(101)-50;
write(a[i],' ');
end;
k:=0;
l:=0;
for i:=1 to 20 do begin
if l<k then l:=k;
k:=0;
for j:=1 to 20 do
if a[i]=a[j] then k:=k+1;
end;
Writeln;
writeln(l);
for i:=1 to 20 do
if i mod 2 = 0 then s:=s+a[i];
writeln(s);
end.
Выводит массив из рандомных 20 чисел между -50 и 50
допустим
0 1 -2 1 2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6 1
Затем выводит макс. кол-во похожих
0 1 -2 1 2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6 1
3
И теперь сумму четных элементов
0 1 -2 1 2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6 1
1+1+3+4+8+10-14-11+45+1=48
program mas;
var
number_month, i, amount, quantity, min: integer;
A: array [1..15] of integer;
begin
for i := 1 to 15 do
begin
read(A[i]);
end;
min := A[1];
for i := 1 to 15 do
begin
if (A[i] mod 3 = 0) then
amount := amount + A[i];
if (A[i] > 20) and (A[i] < 80) then
inc(quantity);
if (A[i] < min) then
min := A[i];
end;
writeln('Минимум: ', min);
writeln('Сумма элементов, кратных 3: ', amount);
writeln('Количество чисел > 20 и < 80: ', quantity);
end.
Объяснение:
program mas; // Название программы
var
i, amount, quantity, min: integer; // Целочисленные переменные:
i - счётчик для foramount - сумма элементов, кратных 3quantity - количество элементов > 20 и < 80min - минимальный элемент массиваA: array [1..15] of integer; // Массив целочисленного типа А с индексами от 1 до 15
begin // Начало программы
amount := 0; // Переменная, отвечающая за сумму элементов, кратных 3, равна 0
quantity := 0; // Переменная, отвечающая за количество элементов >20 и <80, равна 0
for i := 1 to 15 do // Цикл для ввода пятнадцати чисел в массив
begin // Начало цикла
read(A[i]); // Ввод значений с клавиатуры
end; // Конец цикла
min := A[1]; // Значение переменной, отвечающей за минимальный элемент массива, равен первому элементу массива
for i := 1 to 15 do // Цикл для прогона всех чисел массива
begin // Начало цикла
if (A[i] mod 3 = 0) then // Если значение элемента массива с индексом i делится на 3 без остатка, тогда
amount := amount + A[i]; // Сумма = сумма + значение элемента массива с индексом i
if (A[i] > 20) and (A[i] < 80) then // Если значение элемента массива с индексом i > 20 И < 80, тогда
inc(quantity); // Увеличиваем значение переменной quantity на 1
if (A[i] < min) then // Если значение элемента массива с индексом i < значения переменной min, тогда
min := A[i]; // Значение переменной min = значению элемента массива с индексом i
end; // Конец цикла
writeln('Минимум: ', min); // Вывод минимума
writeln('Сумма элементов, кратных 3: ', amount); // Вывод суммы элементов, попадающих под условие
writeln('Количество чисел > 20 и < 80: ', quantity); // Вывод количества чисел, попадающих под условие
end. // Конец программы
