Записать программу ввода с клавиатуры массива целых чисел. а [1..10] вывода на экран элементов массива с положительными значениями.
5-9 класс
|
var a: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do readln(a[i]);
for i := 1 to 10 do
if (a[i] > 0) then writeln('[', i, '] => ', a[i]);
end.
Такое подойдёт?)
Другие вопросы из категории
2.Дано предложение,определить длину последнего слова.
1)1000102
2)AD16
3)1A12
4)325
5)4034
6)357
считываемые с клавиатуры, в римские.
Читайте также
программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива
чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с чётными номерами. Протестировать алгоритм на произвольных массивах размерностью 5 и 8 элементов.
3. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных:
а) 1 3 5 6 8 9
б) -1 4 6 2 4 6 8 6 9
P.S. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
в,их значения и количество.
2.В одномерном массиве целых чисел,содержащем 20 элементов,удалить k-ый элемент массива.Массив заполняется случайным образом числами от 0 до 50.