В заданном массиве определить есть ли хотя бы один элемент, который является числом, кратным 7. Если “да”, то вывести его номер.
5-9 класс
|
Выводит 2 строки: Сам массив(20 элементов от 10 до 99) и строку с номерами элементов кратных 7, если таковых элементов нет, то пишет No elements.
program test;
uses crt;
const
t:boolean=false;
var
arr:array[1..20] of integer;
i:integer;
begin
randomize;
clrscr;
for i:=1 to 20 do
begin
arr[i]:=random(90)+10;
write(arr[i],' ');
end;
writeln;
for i:=1 to 20 do
if arr[i] mod 7 = 0 then
begin
write(i,' ');
t:=true;
end;
if t=false then
write('No elements');
end.
Другие вопросы из категории
-персональные компьютеры
-локальные сети предприятий, университетов и т.п
-большие супер компьютеры (например, мейфрейны)
-другие локальные сети
Хлопчик, що торгує на базарі газетами, заробляє
а
грн. від
продажу перших 100 газет.
На кожній з інших проданих газет він заробляє по
х
коп. Напишіть програму, яка визначає
заробіток за день хлопчика, якщо він продасть
у
газет (
у>100
).
Читайте также
2. Напишите программу, которая вводит последовательность целых ненулевых чисел, признак окончания ввода - число 0. Выясните есть ли в ней хотя бы одна пара одинаковых "соседних" чисел. СРОЧНО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
*Дан массив А целых чисел, состоящий из 20 элементов. Заполнить с клавиатуры.
1) Создать новый массив В, каждый элемент которого равен корню квадратному элемента массива А.
2)Найти сумму элементов массива с 11 по 15.
3) Найти элемент массива кратный 8 и его индекс.
4)Найти удвоенную сумму положительных элементов.
5)Вывести индексы тех элементов, значения которых больше значения предыдущего элемента( начиная со второго).
6) Определить, есть ли 2 пары соседних элементов с одинаковыми знаками.
7)Найти количество положительных элементов.
8)Вычесть из положительных элементов элемент с номером 2, а к отрицательным прибавить элемент с номером 4.
9) Удалить из таблицы все элементы массива, кратные 3 или 5.
10) Поменять местами второй элемент массива и первый чётный.
Помогите пожалуйста. Срочно нужно)
их 4 штуки!
1.дан массив тз N элементов. Есть ли в нем чётные элементы, которые кратны заданному числу K.
2. Дан массив из Nэлементов. Посчитать, сколько элементов массива равных минемальному.
3. Сформировать массив из Nэлементов: 10 12 16 22 30 40.
4. Дан массив из Nэлементов. Перемножить минемальные элементы на 2.
Heeelp!