Решите пожалуйста)) Паскаль:
5-9 класс
|
в одномерном массиве произвольных чисел требуется заменить числом 100 значения всех элементов, удовлетворяющих условию A[i]>=5
const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>5 then
a[i]:=100;
for i:=1 to n do
write(a[i]:4);
end.
Другие вопросы из категории
А) Аппаратное обеспечение компьютера
Б) Дерево
пожалуйста,плохо понимаю эти программы(((
Нужно написать программку в паскале.
Читайте также
B(4,3). Заменить отрицательные элементы произведением положительных элементов. Языка программирования - паскаль.
Верно ли, что его первая цифра меньше последней? Решить также. Помогите пожалуйста!
то поменять местами третий и пятый элементы, если третий элемент равен нулю, то увеличить оба эти элементы в 2 раза, иначе третий и пятый элементы сохраняют прежние значения.
конструкторе) Получить массив из n случайность лежащих в интервале от -50 до 100, определить каких чисел в нем больше четных положительных или нечетных отрицательных?