сервис вопросов и ответовСоздать программу в паскале используя массив: Найти сумму всех чётных элементов массива.
10-11 класс|
|
Tanya555500
17 авг. 2014 г., 17:25:19 (9 лет назад)
Kysnesova55
17 авг. 2014 г., 18:42:36 (9 лет назад)
program xxx;
var i, n : integer;
s : real;
a : array [1..20] of real;
begin
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива А:');
for i:=1 to n do
readln(a[i]);
writeln('исходный массив А:');
for i:=1 to n do
writeln(a[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then s:=s+a[i];
writeln('сумма четных элементов =', s);
readln
end.
Kathreen
02 июля 2016 г., 11:11:00 (7 лет назад)
oh vilka vackra bilder, morran sitter på fräknig asfalt. vet vilket bageri du menar, de har de bästa baegtteurna i världen. aaah. åååååh nu blev jag hungrig! och du kallar mig för kakmonster - pain au chocolat, hallå!!
Banjo
03 июля 2016 г., 5:31:31 (7 лет назад)
Brlniialce for free; your parents must be a sweetheart and a certified genius.
Charl
04 июля 2016 г., 15:02:40 (7 лет назад)
Play invtmraoife for me, Mr. internet writer.
Dashylia2014
17 авг. 2014 г., 19:35:24 (9 лет назад)
program P_1;
var
i, n : integer;
s : real;
b : array [1..1000] of real;
begin
writeln('введите количество значений массива n');
readln(n);
write('введите элементы массива А:');
for i:=1 to n do
readln(a[i]);
writeln('введите элементы массива B');
for i:=1 to n do
readln(b[i]);
writeln('первоначальный массив B');
for i:=1 to n do
writeln(b[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then s:=s+b[i];
writeln('сумма четных значений =', s);
end.
Ответить
Другие вопросы из категории
Компьютер отличается от другого технического устройства тем, что он…Новый вопрос * 1 Обрабатывает информацию 2Работает под управлением программы 3
Работает под управлением программы и обрабатывает информацию 4 Имеет оперативную память
Вычислить частичную сумму ряда S=1/2^2+1/3^2+1/4^2+.... Вычисление прекратить, когда модуль очередного слагаемого станет меньше 0,001. Проверьте,
насколько сумма приблизилась к значению pi^2/6.
За сутки через КПП прошло 42 легковых автомобиля и несколько грузовых. В сообщении о прохождении грузового автомобиля содержится 3 бита информации.
Сколько грузовиков прошло через КПП?
Задание звучит : Дана последовательность целых чисел, за которой следует ноль. Определить, число соседств чисел с одинаковыми знаками.
Что нужно изменить в программе, чтобы выполнялось условие задачи.
Program exapmle2;
var x,y,k:integer;
begin
writeln('Эта программа определяет, число соседств чисел с одинаковыми знаками');
write('Введите число:');
read(x);
y:=x;
k:=0;
while y<>0 do
begin
if x*y<0 then inc(k);
if x*y>0 then inc(k);
y:=x;
read(y);
end;
writeln(' Число соседств ',k);
writeln('нажмите Enter для завершения работы программы');
readln;
end.
Читайте также
Дан одномерный массив целых чисел. найти сумму всех четных элементов массива, стоящих на четных местах (имеющих четные номера). Массив задается с помощью
генератора случайных чисел. если можно с блок-схемой
составить программу 1)найти сумму всех элементов массива (1до10) random. 2)сформировать массив из положительных и отрицательных элементов
от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.
Программирование.Паскаль.Массивы
1)Дан массив Р(15).Найти сумму всех отрицательных элементов с четными индексами.Полученный результат вывести на экран.
2)Ввести с пульта оператора массив МАС1 семь целых чисел. Переписать из МАС1 в МАС2 элементы значения которых положительные,в МАС3 элементы значения которых отрицательные. На пульт оператора вывести значения МАС1,МАС2,МАС3
Вы находитесь на странице вопроса "Создать программу в паскале используя массив: Найти сумму всех чётных элементов массива.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.