сервис вопросов и ответовЗаполнить массив из 10 элементов случайными числами в интервале [10, 200] и найти сумму элементов массива, у которых вторая с конца цифра-четная.
10-11 класс|
|
Natalivolkova2
14 марта 2016 г., 7:35:52 (8 лет назад)
Peo
14 марта 2016 г., 9:12:07 (8 лет назад)
var
a:array [1..10] of integer;
i,k,s:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 10 do
begin
a[i]:=random(191)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
begin
if (a[i]<100)and(((a[i] div 10)mod 2)=0) then s:=s+a[i] else
if (((a[i] div 10)mod 10) mod 2) = 0 then s:=s+a[i];
end;
writeln('Сумма элементов у которых вторая с конца цифра четная:',s);
end.
Ответить
Другие вопросы из категории
Строка S составлена из нескольких предложений, каждоеиз которых заканчивается точкой, восклицательным или вопросительным знаком. Напишите программу,
которая выводит на экран количество предложений в данной строке.
Читайте также
Помогите пожааалуйста,вообще нереально сделать(задачи зависят друг от друга) 1.заполнить массив из 100 элементов случайными числами.вывести на
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива
Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем два максимальных элемента и их номера.
Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 максимальные a[4]=10, a[7]=8
Помогите, пожалуйста!
заполнить массив из 9 элементов случайными числами в интервале в интервале [10,150] и найти min элемент массива, у которых вторая с конца цифра- нечетная
Вы находитесь на странице вопроса "Заполнить массив из 10 элементов случайными числами в интервале [10, 200] и найти сумму элементов массива, у которых вторая с конца цифра-четная.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.