Паскаль!!! Дан массив из 20 действительных чисел, определить среднее арифметическое элементов с четными индаксами и среднее арифметическое с нечетными
10-11 класс
|
индаксами
Var a: array [1..20] of integer; i,s1,s2:integer;
Begin
For i:=1 to 20 do begin
Writeln('введите элемент ',i); read(a[i]);
If i mod 2=0 then s1:=s1+a[i] else
s2:=s2+a[i];
end;
Writeln('Среднее ариф. четных ',s1/20,'; А нечетных ',s2/20);
readln;
end.
Ну как всегда: вопросы - в личку)
Другие вопросы из категории
каналу?
а) 30 с
б) 32 с
в) 4 мин.
г) 240 с
количество цифр не 5,то M=N.
P.S - решить без использования строковой переменной.
Читайте также
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
Один элемент массива соответствует количеству очков, набранных одним участником соревнований, и имеет значение от 0 до 30 включительно. Необходимо разработать программу, которая по данным массива вычисляет максимальное количество очков среди участников соревнований, и количество участников набравшее зачётное количество очков. Зачётное количество очков 18. Гарантируется, что хотя бы один участник соревнований набрал зачётное количество очков.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива