сервис вопросов и ответовзаполнить массив случайными числами в интервале [20;100] и подсчитать отдельно число четных и нечетных элементов
10-11 класс|
|
Abcdefgsdtfdf
10 сент. 2014 г., 1:22:49 (9 лет назад)
Shakirova05
10 сент. 2014 г., 4:12:08 (9 лет назад)
program Mas;
var i,ne,ch,n:integer;
a:array [1..1000] of integer;
begin
read(n);
randomize;
for i:=1 to n do begin
a[i]:=random(80)+21;
write(a[i],' ');//Распечатка массива, увидешь правильно ли программа выполняет функци
end;
for i:=1 to n do
begin
if a[i] mod 2=0 then
ch:=ch+1
else ne:=ne+1;
end;
writeln;
writeln('Нечетные=',Ne);
writeln('Четные=',Ch);
end.
Ответить
Другие вопросы из категории
Дана строка , в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются В заданном формате дд- целое число из диапазона от 1 до
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....
Решить в паскале
y=14/x^2+√(5х^2/3x-2)
Помогите пжлст, очень важная домашняя
Читайте также
Срочно! Помогите пожалуста! Нужно написать програмный код в турбо паскале! Заранее ОГРОМНОЕ СПАСИБО!! Заполнить массив из 10 элементов
случайными числами в интервале от 0 до 4 и вывести номера всех элементов, равных X.
Пример:
Исходный массив:
4 0 1 2 0 1 3 4 1 0
Что ищем? 0
A[2], A[5], A[10]
Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре. Пример: Исходный
массив:
14 25 13 30 76 58 32 11 41 97
Результат:
30 11 41 32 13 14 25 76 97 58
говорили про какой-то метод пузырька. хелп ми Т_т
p.s. паскаль abc
ребят ,если честно - срочно...
1)заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку,заменив все четные элементы на число
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
Вы находитесь на странице вопроса "заполнить массив случайными числами в интервале [20;100] и подсчитать отдельно число четных и нечетных элементов", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.