сервис вопросов и ответовнаписать программу обработки одномерного массива :1 ввести массив с клавиатуры с запросом(а[1]=,a[2]=, и т.д)
5-9 класс|
|
найти сумму чётных элементов массива.
Sofi72
18 янв. 2017 г., 6:07:16 (7 лет назад)
Katya110
18 янв. 2017 г., 10:57:40 (7 лет назад)
const n=(задайте нужное количество элементов массива);
var a: array [1..n] of integer;
i: byte; sum: integer;
begin
sum :=0;
for i:=1 to n do
begin
write('a[',i,']= '); readln(a[i]);
if a[i] mod 2=0 then sum:=sum+a[i];
end;
writeln;
write(sum);
readln;
end.
Ответить
Другие вопросы из категории
1. К какому типу относится переменная А:=0.25?а) char; б) integer; в) boolean; г) real.2. Определите, является ли число М нечетным. Какое условие можно
использовать в этой задаче?а) M mod 2<>0; б) M/2<>0; в) M div 2<>0; г) M='нечетное'.3. Входит ли число А в диапазон значений [4;10)? Какое составное условие нужно поставить в этой задаче?а) (A>=4) and (A<10); б) (A<=4) and (A>10); в) (A>=4) or (A<=10); г) not (A>=4) and not (A<10).4. Какое условие следует использовать для вычисления Y по формулам: Y=(X+1)2, при X≥1; Y=cosX, при X<1?а) if x>=1 then y:=cos(x) else y:=sqr(x+1); б) if x<1then y:=cos(x) else y:=sqr(x+1); в) if x>=1 then y:=sqr(x+1) else y:=cos(x); г) if x>1 then y:=cos(x) else y:=sqr(x+1);5. Что будет выведено на экран после выполнения фрагмента программы?begina:=1; b:=1;if (a>=1) and (b>=2) then n:=a+b else n:=a-b;writeln(n);end.а) 3; б) -1; в) 1; г) 0.6. Есть ли в следующих текстах пустые операторы? (В ответе перечислите буквы через запятую)а) begin a:=true; b:=b end б) if a div b=0 then else b:=0 в) begin x:=-2; y:=-5; end г) begin if x=0 then x:=2; y:=xд) if x>0 then x:=3 else; y:=x-27. Найдите ошибки в следующих операторах и запишите исправленные операторы.а) begin if y2>1 then y:=cosy; y:=; end;б) if -2<y<5 then if y>=1 then y=y3 else y:=y2else y:=sqr(y)8. Напишите программу, которая по номеру дня недели показывает название этого дня недели.
Помогите решить задачу в Excel:Билет на пригородном поезде стоит 5 монет,если расстояние до станции не больше 20 км;13 монет,если расстояние больше 20
км,но меньше 75 км;20 монет,если расстояние >= 75 км.Составить таблицу,по которой можно определить цену билета до 10 станций.Построить диаграмму,показывающую соотношение цен всех билетов.
Читайте также
1)составьте программу ввода элементов массива а[1..8 ] с клавиатуры и вывода на экран элементов с отрицательными значениями; 2)составьте
программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями
ЯЗЫК QBASIC !!! Решите задачи, используя цикл while-wend 1. Написать программу, вычисляющую сумму и среднее арифметическое последовательности
положительных чисел, которые вводятся с клавиатуры. 2. Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна).
Пожалуйста помогите решить желательно все или хотя бы одну (P.S. программа для программы Turbo Pascal) 1.Написать программу, которая предлагает
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.
Заполните массив с клавиатуры целыми числами и найдите сумму элементов массива с i1-го по i2-й (i1 и i2 вводить с клавиатуры).
Входные данные:
в первой строке целое число n (0 < n ≤ 100) - кол-во элементов в массиве и целые числа i1 и i2 (0 < i1, i2 ≤ 100). Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) - значения элементов массива.
Выходные данные:
сумма элементов массива c номерами от i1 до i2.
(Написать программу на Паскале)
1. Даны два различных вещественных числа X и Y. Написать программу, возведения наименьшего из чисел в квадрат, наибольшего – в куб и нахождения среднего
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
Вы находитесь на странице вопроса "написать программу обработки одномерного массива :1 ввести массив с клавиатуры с запросом(а[1]=,a[2]=, и т.д)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.