Заполнить массив из 9 элементов случайными числами в интервале 10;150 и найти сумму элементов массива у которых вторая с конца цифра нечетная
10-11 класс
|
var
a:array [1..9] of integer;
i,k,b:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=random(141)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]<=99 then
if ((a[i] div 10) mod 2)<>0 then k:=k+a[i];
if a[i]>99 then
begin
b:=a[i] div 10;
if (b mod 2)<>0 then k:=k+a[i];
end;
end;
writeln('Сумма элементов у которых вторая с конца цифра нечетная: ',k);
end.
Другие вопросы из категории
являющихся нечётными числами.
расположено 64 строки по 32 символа в строке ???
Решите пожалуйста)))!!!
Читайте также
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива
возрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки» .
заполнить массив из 9 элементов случайными числами в интервале в интервале [10,150] и найти min элемент массива, у которых вторая с конца цифра- нечетная
«пузырька» и методом «быстрой сортировки» .