сервис вопросов и ответовДан целочисленный массив из 20 элементов. Элементы массива принимают значения от 0 до 10000 включительно. Написать программу, позволяющую найти и выв
5-9 класс|
|
ести максимальное значение среди трехзначных элементов массива, делящихся на 4. Если в исходном массиве нет трехзначного элемента, который делится на 4, то вывести сообщение о том, что такого числа нет.
Sashavoll182
04 июля 2013 г., 22:10:20 (10 лет назад)
Ника71299
04 июля 2013 г., 23:01:00 (10 лет назад)
var
max, i : integer;
a : array [1..20] of integer;
begin
max := -1;
for i := 1 to 20 do read (a[i]);
for i := 1 to 20 do
if (a[i] < 1000) and (a[i] > 99) and (a[i] mod 4 = 0) and (a[i] > max) then
max := a[i];
if max > -1 then write (max) else write ('Nety');
end.
Ответить
Другие вопросы из категории
задание 1. составьте программу , определяющую , является ли число х простым. число х введите с клавиатуры. число называется простым,если у него нет других
делителей , кроме 1 и его самого.
Помогите, пожалуйста, решить задачу на языке программирования в Turbo Pascal: 1.Дан массив целых чисел, состоящий из 10 элементов.Заполнить его
с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.
Читайте также
Дан целочисленный массив из 20 элементов элементы могут принимать значения -1000 до 1000 позволяет найти и вывести минимальные значения среди элементов
массива которые имеют четные значения и не делятся на 3
Даны два целых числа А и В (А < В) . Найти произведение всех целых чисел от А до В включительно.
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
решить через паскаль через массивы)) 1.Дан одномерный массив из 10 элементов. Заменить все большие 7 члены массива числом 7. Найти количество
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
а)Одномерный массив A заполнен десятью случайными целыми числами от 1 до 20. Напишите программу вывода элементов массива в обратном порядке.
б)Напишите программу, которая массив из 20 элементов заполнит неповторяющимися целыми числами и выведет на экран элементы с нечетными индексами.
Дан целочисленный массив из 7 элементов: 1) подсчитать произведение элементов массива кратных 5 и кратных 3. 2)подсчитать среднее значение четных
элементов массива. 3) найти минимальное значение среди элементов массива <25 и положительных и номера,соответствующего элемента.
Вы находитесь на странице вопроса "Дан целочисленный массив из 20 элементов. Элементы массива принимают значения от 0 до 10000 включительно. Написать программу, позволяющую найти и выв", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.