Дан линейный массив в размере 5 вывести элементы больше 10
5-9 класс
|
program zadacha;
var
a:array[1..5] of real; {можно взять и тип integer}
i:integer;
Begin
for i:=1 to 5 do
begin
writeln('Введите элемент массива');
readln(a[i]);
end;
for i:=1 to 5 do
if a[i]>10 then write(a[i],' ');
writeln;
End.
Другие вопросы из категории
чисел.помогите пожалуйста,очень надо!
Читайте также
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
среди них есть хоть один элемент больше единицы, и произведение - в противном случае.
содержатся только положительные элементы из исходного масива ,упорядочить этот новый массив по возрастанию.
Найти произведение отрицательных четных элементов второго столбца массива.
2. Дан двухмерный массив m*n.
Получите одномерный массив b, элементы которого равны min элементам по строкам.
Дан целочисленный массив A размера N (<=15). Переписать в новый целочисленный массив B все элементы с нечетными порядковыми номерами (1,3...) и вывести размер полученного массива B и его содержимое.Условный оператор не использовать