сервис вопросов и ответовзадача на паскале: заполнить массив случ числами const n=5(через команду random) в интервале [1000;2000] и подсчитать число элементов, у которых вторая
10-11 класс|
|
с конца цифра-четная. помогите пожалуйста)) понимаю что это через команды mod или div но догнать не могу
AMANDA69
04 нояб. 2016 г., 21:09:03 (7 лет назад)
Okca1976
04 нояб. 2016 г., 23:25:58 (7 лет назад)
uses crt;
var
i, n, k: integer;
mas : array [1..5] of integer;
begin
randomize;
n:= 5;
for i:= 1 to n do
mas[i]:= random (1000)+1000;
for i:= 1 to n do
write (mas[i],' ');
writeln;
for i:= 1 to n do begin
mas[i]:= mas[i] mod 100 div 10;
if mas[i] mod 2 = 0 then k:= k+1;
end;
writeln (k);
readkey;
end.
Ответить
Другие вопросы из категории
Програмирование Паскаль
Напишите программу, которая выводит на экран числа от 1 до N с шагом 2. N вводится с клавиатуры.
в паскале Запросить
с клавиатуры 3 стороны треугольника и
по ним определить, является ли он
прямоугольным, сообщение вывести на
экран.
Подсказка.
Для каждой стороны применить теорему
Пифагора и проверить, выполняется ли
она. Если выполняется, то треугольник
является прямоугольным. Переменные
должны быть целыми числовыми. Функция
квадрата - sqr(x), корня квадратного -
sqrt(x). Программу проверить при сторонах
3, 4, 5 - прямоугольный, а 4, 5, 6 - не
прямоугольный.
Читайте также
пожалуйста ... помогите.... очень срочно нужно... помогите решить задачу на Паскале....отсортировать массив из пяти элементов и подсчитать количество
уникальных чисел в массиве....заранее спасибо...
1)заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку,заменив все четные элементы на число
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
(Программа Паскаль) 1)Заполните массив элементами арифметической прогрессии. Её первый элемент и разность нужно ввести с клавиатуры. 2)
Заполните массив степенями числа 2( от 2(в первой степени) до 2(в N степени)
алгоритм Мишень цел n, k, i вещ массив P[1000] вещ r1, r2 начало ввести
n, массив P и радиусы r1, r2 /* Исходные данные */
вывести заголовок задачи и значения n, P, r1, r2 k ¬0 для i от 1 до n шаг 1 выполнять/*
Подсчитать число точек */ если r1 < ri и ri < r2 то k ¬k +1
конец-если
конец-цикл
вывести заголовки выходных данных и значений k конец
Теперь спланируем тестирование.
Проверку программы выполним при следующих исходных данных.
Зададим число точек на плоскости: n = 10. Подберем расстояния и радиусы: 0.03 21.0 12.89 7.41 99.99
P = 12.34 56.78 90.98 7.6 0.54
r1 = 12.35 r2 = 56.90.
Выходные данные в этой задаче будут иметь вид: Мишень Исходные данные:
n= 10 Массив P[n]: 0.03 21.0 12.89 7.41 99.99 12.34 56.78 90.98 7.6 0.54 r1 = 12.35 r2 = 56.90
Ответ: внутри 3 точки (три точки находятся внутри кольца).помогите написать программа в паскале и алгоритм блок-схему.пожалуйста срочно!
Вы находитесь на странице вопроса "задача на паскале: заполнить массив случ числами const n=5(через команду random) в интервале [1000;2000] и подсчитать число элементов, у которых вторая", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.