сервис вопросов и ответов1.Дан одномерный целочисленный массив. Найти числа, которые при делении на 3 и 5 дают одинаковые остатки, посчитать их количество. Если
5-9 класс|
|
такий чисел нет, то вывести соответствующее сообщение.
1.Д
Angelina160901
01 апр. 2015 г., 3:54:00 (9 лет назад)
Иришка237
01 апр. 2015 г., 4:38:17 (9 лет назад)
Program Zadacha1;
Const n = 10;
Var a: Array [1..n] Of Integer;
b, i: Integer;
Begin
Randomize;
For i := 1 To n Do
a[i] := Random(100);
b := 0;
For i := 1 To n Do
If a[i] Mod 3 = a[i] Mod 5 Then
b := b + 1;
WriteLn('Массив:');
For i := 1 To n Do
Write(a[i], ' ');
WriteLn;
If b > 0 Then
WriteLn('Результат: ', b)
Else
WriteLn('В массиве нет таких чисел');
ReadLn;
End.
Program Zadacha2;
Const n = 10;
Var a: Array [1..n] Of Integer;
b, i: Integer;
Begin
Randomize;
WriteLn('Начальный массив:');
For i := 1 To n Do
Begin
a[i] := Random(100);
Write(a[i], ' ');
End;
WriteLn;
b := 1;
For i := 1 To n Do
If a[i] < a[b] Then
b := i;
a[b] := 3;
For i := 1 To n Do
If i Mod 2 = 0 Then
a[i] := 0;
WriteLn('Конечный массив:');
For i := 1 To n Do
Write(a[i], ' ');
ReadLn;
End.
Ответить
Другие вопросы из категории
Каким термином называется концептуальная структура персонального компьютера, от которой зависит, каким образом будет проводиться обработка
информации, а также принципы взаимодействия технических средств и программного обеспечения? Это понятие в широком смысле определяется также как искусство проектирования различных сооружений.
перед вами китайские счет-суаньпань на которых отложены различные числа на картинке слева-число 16317 а какое число показано на картинке справа? Из
кита за 6 класс Вложение внутри
В записанном ниже алгоритме используется переменные a и b. Определите значение а после выполнения алгоритма.
а:= 10
b:= 120
b:= 132+b/а
а:= b/12*a
Одномерный массив из 15 элементов заполнить случайным образом числами от 7 до 12. Присвоить 8-му элементу значение 10-го элемента, увеличенное а 5, а
10-му элементу присвоить значение 13. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
Читайте также
НАПИСАТЬ ПРОГРАММУ: найдите всеНАПИСАТЬ ПРОГРАММУ: найдите все пятизначные числа, которые при делении на 133 дают в остатке 125, а при делении на
134 дают в остатке 111. С помощью паскаля
1) Дан одномерный массив из 12 элементов. Составить программу заполняющую массив целыми числами в интервале -20 до 15 2)Требуется
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный
Вариант № 2 1)Подсчитать сумму квадратов всех отрицательных и четных чисел из 10 вводимых. 2) Даны натуральные числа от 35 до 87.
Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.
3)Дано целое число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n, используя в программе лишь операцию умножения.
4)Введите последовательность из n целых чисел. Найти наибольшее из всех отрицательных чисел. Вывести его значение и порядковый номер.
5)Вычислите: 99-97+95-93+91-89+....+7-5+3-1.
6)Доказать (путем перебора возможных значений), что для любых величин А, В, С типа Boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны): A OR (B AND C) и (A OR B) AND (A OR C).
написать программу в паскале
дан одномерный целочисленный массив с индексами от 0 до 10
найти максимум и минимум элементов массива
Вы находитесь на странице вопроса "1.Дан одномерный целочисленный массив. Найти числа, которые при делении на 3 и 5 дают одинаковые остатки, посчитать их количество. Если", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.