сервис вопросов и ответовсоставить программу вывода N случайных целых чисел диапазона от 0 до 50. определить сколько среди них четных, а сколько нечетных
10-11 класс|
|
Брошенка
26 марта 2014 г., 11:34:15 (10 лет назад)
Ses12
26 марта 2014 г., 14:33:37 (10 лет назад)
Program asd;
USES crt;
var A:array[1..100] of integer;
i,n,k,k1:integer;
BEGIN
Randomize;
Clrscr;
Writeln('Введите кол-во чисел: ');
Readln(n);
For i:=1 to n do
begin
A[i]:=Random(50);
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i] mod 2=0
then k:=k+1 else
k1:=k1+1;
end;
Writeln('Кол-во четных: ',k,'. Кол-во не четных: ',k1);
END.
Ответить
Другие вопросы из категории
Электронное устройство приемника должно принимать и воспроизводить 9 различных сигналов, которые закодированы двоичным кодом минимальной длины. Устройство
приняло 160 сигналов. Каков объем данного информационного сообщения в байтах?
Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые
значения от 0 до 10000 включительно. Напишите
В доме, состоящем из 30 квартир, переселить жильцов так, чтобы жильцы первой квартиры переехали в тридцатую, из тридцатой - в первую, из второй - в 29 и
т.д., найдите количество квартир, в которых проживает более 5 человек.
Задание. Составьте блок схему алгоритма решения задачи и программу на языке Turbo Pascal c использованием условного оператора.
Даны три целых числа.Найти кол-во положительных чисел в исходном наборе.
Читайте также
1)составьте программу вычисления суммы чисел в диапазоне от 45 до 115 45+....+115
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
Дана строка , в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются В заданном формате дд- целое число из диапазона от 1 до
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....
Составить программу в паскале по подсчету кол-ва претендентов, которые попадут в школьную баскетбольную команду,если рост игрока должен быть не менее
170 см. Считать число претендентов случайном числом в диапазоне от 150 до 200, число претендентов 50 (программу писать через массив)
Составить программу, которая вычисляет сумму элементов главной диагонали в
двумерном массиве размерности 3х3. Заполнить массив целыми случайными числами из
диапазона от 0 до 15.
Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных чётных чисел, не превосходящих
256. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.
Вы находитесь на странице вопроса "составить программу вывода N случайных целых чисел диапазона от 0 до 50. определить сколько среди них четных, а сколько нечетных", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.