№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит
10-11 класс
|
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
var a:array[1..40] of integer;
i, j, cou, coumax, amax: integer;
begin
coumax:=0;
for i:=1 to 40 do
readln(a[i]);
for i:=1 to 40 do begin
cou:=0;
for j:=1 to 40 do
if(a[i]=a[j]) then inc(cou);
if(cou>coumax) then begin
coumax:=cou;
amax:=a[i];
end;
writeln(amax, ' is the most repeated value');
end.
var a1, temp, cou, i, sum:integer;
begin
read(a1);
if (a1>=0) then cou:=1 else cou:=0;
if (cou>0) then sum:=a1 else sum:=0;
for i:=2 to 40 do begin
read(temp);
if (temp>0) and (temp mod a1=0) then begin
inc(cou);
inc(sum,temp);
end;
end;
writeln(sum/cou)
end.
Другие вопросы из категории
Подсчитать, сколько человек недопущено ко второму экзамену.
"язык паскаль"
Найти сумму
1,1-1,2+1,3.......1.n
n- целое, вводится с клавиатуры
Читайте также
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
енные значения от -100 до 100. Напишите программу, которая позволит подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. Первый элемент не равен 0. (Паскаль)
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. СРОЧНО QBaSIC
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива