Дан массив из 10 элементов. Определить 2х значные числа и которые заканчиваются на цифре 5.
10-11 класс
|
var
i:integer;
b: array[1..10] of integer;
begin
for i:=1 to 10 do readln(b[i]);
writeln;
writeln('Двухзначные:');
for i:=1 to 10 do
if (b[i]>9) and (b[i]<100)
then write(b[i],' ');
writeln;
writeln('Оканчиваются на 5:');
for i:=1 to 10 do
if b[i]mod 10=5
then write(b[i],' ');
end.
Другие вопросы из категории
итра?
Операция 8 л 5 л 3 л
до перелива 8 0 0
1-ый перелив
2-й перелив
3-й перелив
4-й перелив
5-й перелив
6-й перелив
7-й перелив
Помогите решить ,спасибо.
помощи минимально возможного количества битов. Станция сделала 80 измерений. Определите информационный объем результатов наблюдений.
1) 30 битов 3) 210 битов
2) 21 байт 4) 168 байтов
Читайте также
арифметическое.
2) Дан массив из 10 элементов. Определить 2х значные числа и которые заканчиваются на цифре 5.
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.