Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Напишите пожалуйста программy на турбо паскале, которая заменяет все отрицательные элементы массива нулями

5-9 класс

Gabdeshevaaldi 11 апр. 2013 г., 18:43:30 (11 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
MartaaaHelp
11 апр. 2013 г., 19:27:43 (11 лет назад)

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.

Ответить

Другие вопросы из категории

1.Дан массив натуральных чисел. Найти сумму элементов кратных данному К. 2.В целочисленной последовательности есть нулевые элементы.Создать

массив из номеров этих элементов.

3.

дана последовательность целых чисел а1, а2,...аn. Выяснить, какое число встречается раньш положитльно или отрицатльное.

4. Дана последоватльность действительных чисел а1,а2,...аn. Выяснить,будет ли она возрастающей.

Читайте также

Помогите решить, буду очень благодарен.

1. Дан массив, найти произведение отрицательных элементов массива.
2. Дан массив, заменить все отрицательные элементы массива их модулями

Напишите, пожалуйста, программу на языке Паскаль

Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал норму на 10% от предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней?

1) Все положительные элементы массива А увеличить на 0.4, нулевые заменить на 0.5, определить сумму отрицательных элементов и произведение

положительных элементов.

2)Найти количество пар взаимообратных соседних чисел в линейной таблице Х[1:N].

3)Упорядочите элементы массива А в порядке убывания.

4)При поступлении в институт абитуриенты набирают определенное количество баллов. Считая фамилии абитуриентов и набранное ими количество баллов исходными данными, составить список будущих студентов, если известно что на выбранный факультет будет зачислено М человек.



Вы находитесь на странице вопроса "Напишите пожалуйста программy на турбо паскале, которая заменяет все отрицательные элементы массива нулями", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.