Напишите пожалуйста программy на турбо паскале, которая заменяет все отрицательные элементы массива нулями
5-9 класс
|
const
N = 10;
var
a: array [1..N] of integer;
i: integer;
begin
Writeln('Элементы массива: ');
for i:=1 to N do
begin
a[i]:= -100 + random(201);
Writeln('a[',i,'] = ', a[i]);
end;
for i:=1 to N do
if (a[i] < 0) then a[i]:= 0;
Writeln; Writeln;
Writeln('Элементы нового массива: ');
for i:=1 to N do Writeln('a[',i,'] = ', a[i]);
end.
Другие вопросы из категории
массив из номеров этих элементов.
3.
дана последовательность целых чисел а1, а2,...аn. Выяснить, какое число встречается раньш положитльно или отрицатльное.
4. Дана последоватльность действительных чисел а1,а2,...аn. Выяснить,будет ли она возрастающей.
Читайте также
1. Дан массив, найти произведение отрицательных элементов массива.
2. Дан массив, заменить все отрицательные элементы массива их модулями
Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал норму на 10% от предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней?
положительных элементов.
2)Найти количество пар взаимообратных соседних чисел в линейной таблице Х[1:N].
3)Упорядочите элементы массива А в порядке убывания.
4)При поступлении в институт абитуриенты набирают определенное количество баллов. Считая фамилии абитуриентов и набранное ими количество баллов исходными данными, составить список будущих студентов, если известно что на выбранный факультет будет зачислено М человек.