составьте программу ,которая заполняет массив а[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с чеоными значениями
10-11 класс
|
и произведение элементов с нечетными значениями
program rand_max;
const
size=8;
var
main_mas: array [1..size] of integer;
i,nchet,proizv:integer;
begin
nchet:=0;
proizv:=1;
randomize;
writeln('Исходный массив:');
for i:=1 to size do begin
main_mas[i]:=random(11);
write(' ',main_mas[i],' ');
if (Odd(main_mas[i])) then
begin
inc(nchet);
proizv:=proizv*main_mas[i];
end;
end;
writeln;
writeln('Кол-во нечетных: ',nchet);
writeln('Произведениче нечетных = ',proizv);
end.
Другие вопросы из категории
выполняются только с одного края. Механизм функционирования стека отражён в его названии «LIFO» (Last In First Out — последним вошёл, первым вышел, подобно патронам в обойме). Следовательно, любой элемент не может быть извлечён и удалён из стека раньше, чем будут извлечены все элементы, помещённые в стек позднее него. Составить программу, реализующую функционирование стека. Стек оформить как массив.
Читайте также
на противоположный.
выведите на экран исходный и полученный массивы
очень прошу
являются четными и кратными 3
и количество элементов с нечетными значениями.
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....
Задача 1. Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый и последний элементы.