сервис вопросов и ответов1. Дано n целых чисел. Вывести все числа, меньшие последнего числа в ряду;
5-9 класс|
|
2. Определите, есть ли в массиве числа от 3 до 7. Укажите их номер.
Daaaria
31 дек. 2014 г., 1:17:54 (9 лет назад)
Dany376
31 дек. 2014 г., 3:12:47 (9 лет назад)
Program asd;
Var A,C:array[1..2500] of integer;
i,n,s,ii:integer;
sr:real;
BEGIN
Write('Введите n: '); Readln(n);
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=1+Random(9);
Write(A[i]:2);
end;
Writeln;
Writeln('Все элементы, которые меньше последнего числа в ряду: ');
For i:=1 to n do
begin
if A[i]<A[n] then Write(A[i]:2);
end;
Writeln();
Writeln('Номер элементов, которые от 3 до 7.: ');
For i:=1 to n do
begin
If (A[i]>=3) and (A[i]<=7)
then
begin
C[i]:=i; Write(C[i],' ');
end;
end;
END.
Juliasjripaleva
31 дек. 2014 г., 5:13:52 (9 лет назад)
Не поверишь, буквально часа два назад такую же задачу решал.
Ответить
Другие вопросы из категории
Помогите пожалуйста составить задачу , ко
торая поможет высчитать сдачу, на языке паскаль. Спасибо заранее!)Буду благодарен за срочность)
Что повлияло на развитие информатики?
1. Достижения физики
2. Создание Электронно-вычислительных машин
3. Достижения математики
Читайте также
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
1) Вывести все числа от a до b,но заранее неизвестно, a>b или a<b
2) Вывести нечётные числа из диапозона [a,b],где a и b могут быть как чётными,так и нечётными,а также отрицательными,но обязательно a<b
3) В одной программе посчитать две суммы из [a,b] (те же условия,что и в задании 2)
S-сумма всех нечётных чисел
Sym-сумма чисел,кратных 3
Cами числа выводить не нужно
4)Найти a в степени n,где a и n целые числа, но могут быть отрицательными
(задачи можно делать либо через For,либо через While)
1)Задан массив из 11 целых чисел. Найти сумму элементов массива, кратных 5 2)Задан массив из 11 целых чисел. Посчитать количество нечётных
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
Помогите написать программы >< Задача 1: Среди целых чисел найти минимальное число, которое больше 20 и делится на 17. Задача 2:
Найти максимальное натуральное число меньше 5000, которое делится нацело на 39.
Задача 3: 1 марта в банк положили 1000 руб. Каждый месяц вклад увеличивается на 2% от имеющейся суммы.
а) за какой месяц величина процентной надбавки превысит 30 руб.?
б) через сколько месяцев размер вклада превысит 1200 руб.? Заранее спасибо)
Вы находитесь на странице вопроса "1. Дано n целых чисел. Вывести все числа, меньшие последнего числа в ряду;", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.