сервис вопросов и ответов1 задача :дан одновременный массив п целых чисел . составить программу вычисления среднего арифмитичного четных чисел 2 задача : составьте программу
10-11 класс|
|
сокращения одновременного массива путем удаления каждого второго элемента
Diana282828282828
26 сент. 2014 г., 10:58:11 (9 лет назад)
Анютка554
26 сент. 2014 г., 12:54:17 (9 лет назад)
var
a : array [1..100] of integer;
n, i, count : integer;
sum : real;
begin
read (n);
for i := 1 to n do read (a[i]);
sum := 0; count := 0;
for i := 1 to n do
if a[i] mod 2 = 0 then
begin
sum := sum + a[i];
inc (count);
end;
writeln (sum / count);
end.
var
a : array [1..100] of integer;
n, i, last : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
last := 1;
for i := 1 to n do
if i mod 2 = 1 then
begin
a[last] := a[i];
inc (last);
end;
for i := 1 to last - 1 do
write (a[i], ' ');
end.
Примечание ко второй задаче: last - номер последней свободной ячейки.
Ответить
Другие вопросы из категории
Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности не
ограничена).
Программа Delphi
Заранее благодарю!
Читайте также
Даны два целых числа А и В (А<В). Найти сумму всех целых чисел от А до В включительно Входные данные: ввести два целых числа А,В (1<=A,
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.
только что увидила что есть еще последняя задача ))) дан одновременный массив из п положительных чисел . составить программу вычисления их : сред
него геометрического
Дан одномерный массив положительных целых чисел. Последовательно преобразовать этот массив по следующему алгоритму: Находится первый максимальный элемент
и устанавливается первым в массиве, затем из оставшихся находится минимальный элемент и устанавливается вторым в массиве, после чего отыскивается из оставшихся элементов максимальный и устанавливается третьим в массиве и т.д. Размерность массива задается с клавиатуры.
Помогите, пожалуйста, не получается.
Вы находитесь на странице вопроса "1 задача :дан одновременный массив п целых чисел . составить программу вычисления среднего арифмитичного четных чисел 2 задача : составьте программу", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.