№1. Дан массив напечатать:
5-9 класс
|
1)все неотрицательные элементы.
2)все элементы не превышающие числа 10
№2
дан массив целых чисел.Напечатать:
1)все элементы кратные 5
2)все элементы заканчивающиеся 0
№1 1)2)
var a:array[1..5]of integer;
i:byte;
begin
for i:=1 to 5 do
readln(a[i]);
writeln();
for i:=1 to 5 do
if (a[i]>0) and (a[i]<10) then begin
writeln(a[i]);
end;
end.
Другие вопросы из категории
по весу части. Как это сделать?
а) в оперативной памяти
б) в процессоре
в) во внешней памяти
г) в видеопамяти
Помогите пжл
Первая строка состоит из одного символа – латинской буквы «А». Каждая из последующих цепочек создаётся такими действиями: в очередную строку сначала записывается буква, чей порядковый номер в алфавите соответствует номеру строки, к ней слева дважды подряд приписывается предыдущая строка.
Вот первые 4 строки, созданные по этому правилу:
(1) A
(2) AAB
(3) AABAABC
(4) AABAABCAABAABCD
Запишите шесть символов подряд, стоящих в восьмой строке с 10-го по 105-е место (считая слева направо).
которого на 2048 бит в секунду больше
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.