Срочно, помогите ! Дан массив целых чисел, состоящий из 20 элементов, заполненный случайным образом числами из промежутка от –50 до 50. Посчитать
5-9 класс
|
кол-во похожих элементов подсчитать сумму четных элементо
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
Другие вопросы из категории
о зашифровано?
а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы э ю я
регистрирует в автоматическом режиме скорость проезжающих мимо нее автомобилей, округляя значения скорости до целых чисел. Необходимо определить максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 30 км/ч, выведи YES, иначе выведите NO. Программа получает на вход число проехавших автомобилей N ( 1 ≤ N ≤ 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести максимальную скорость, затем YES или NO.
Пример работы программы:
Входные данные Выходные данные
4 74
74 NO
69
63
66
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
1).найти все четырехзначные числа,делящиеся на 27.
2).дан массив целых чисел,состоящий из 20 элементов.Заполнить его случайными числами и найти количество элементов массива. значения которых больше заданного числа и кратны 5.
1).найти все симметричные четырехзначные числа,делящиеся на 27.
2).дан массив целых чисел,состоящий из 20 элементов.Заполнить его случайными числами и найти количество элементов массива. значения которых больше заданного числа и кратны 5.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.