сервис вопросов и ответов1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму четных элементов массива. Выведите на экран исходный массив и
10-11 класс|
|
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
Alikhan27
29 окт. 2014 г., 22:38:29 (9 лет назад)
Fatya09
29 окт. 2014 г., 23:15:41 (9 лет назад)
1.
Const N = 10;
Var i,S:integer; m:array [1..N] of integer;
Begin
randomize; S:=0;
for i:=1 to N do begin
m[i]:= random(201)-100;
writeln(m[i]);
end;
for i:=1 to N do
if m[i] mod 2 = 0 then
S:=S+m[i];
writeln('Summa = ',S);
readln;
end.
2.
Const N = 100;
Var i,p:integer; B:array [1..N] of integer;
Begin
randomize; p:=0;
for i:=1 to N do begin
B[i]:= random(201)-100;
writeln(B[i]);
end;
for i:=1 to N do
if B[i] mod 3 = 0 then
p:=p*B[i];
writeln('Proiz = ',p);
readln;
end.
Ответить
Другие вопросы из категории
Для групповых операций с файлами используются маски имен файлов. Маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов
символов, в которых также могут встречаться следующие символы:
Символ «?» (вопросительный знак) означает ровно один произвольный символ.
Символ «*» (звездочка) означает любую последовательность символов произвольной длины, в том числе «*» может задавать и пустую последовательность.
Определите, какое из указанных имен файлов удовлетворяет маске: ?hel*lo.c?*.
А). hello.c
Б) hello.cpp
В) hhelolo.cpp
Г) hhelolo.c
Читайте также
1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифметическое нечетных элементов массива с нечетными
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените всё его положительные элементы на наибольший отрицательный элемент.
Выведите на экран исходный и полученный массив. На Паскале
Помогите, пожалуйста. Паскаль ABC. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите произведение элементов, имеющих
нечетные индексы. Выведите на экран исходный массив и полученное произведение.
Помогите пожалуйста!!!! Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все элементы с нечетными индексами
на минимальный. Выведите на экран исходный и полученный массивы.
Вы находитесь на странице вопроса "1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму четных элементов массива. Выведите на экран исходный массив и", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.