Задача:
5-9 класс
|
Дан массив из 10 целых чисел,от -20 до 20 .
Напишите программу,заменяющую первый отрицательный элемент массива нулем.
Помогите пожалуйста решить!
Program z10;
var a,b:Array [1..10] of integer;
i,q:integer;
Begin
Randomize;
q:=0;
For i:=1 to 10 do
begin
a[i]:=random(40)-20;
write(a[i],' ');
if(a[i]<0)then begin
q:=q+1;
if(q=1)then a[i]:=0;
end;
end;
writeln;
for i:=1 to 10 do
begin
write(a[i],' ');
end;
end.
var a:array [1..10] of integer;
i,n,b:integer;
Begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
begin
if b=0 then if a[i]<0 then
begin
a[i]:=0;
b:=1;
end;
end;
for i:=1 to 10 do
write(a[i],' ');
End.
Другие вопросы из категории
тему,помогите пожалуйста!
олимпийские виды спорта
автомобили
самолеты
мобильные телефоны
Какие из следующих моделей является информационными, а какие натурными.
Математическая формула.
Манекен.
Муляж.
Сборочный чертеж.
Оглавление книги.
Блок-схема алгоритма.
Авиамодель.
эталон метра.
Программа телепередач.
Схема метрополитена.
Карта местности.
же файл через другое соединение сос коростью 2048 бит в секунду. в ответе укажите одно число - количество секунд.
Читайте также
Решите задачу с помощью рассуждения (рассуждения присылать тоже)
Задача: В одном доме живут 3 товарища: Вася, Боря и Дима.
Один из них играет в футбол, другой пишет стихи, а третий лучше всех играет в шахматы.
Известно : 1-ВАсин друг с огорчением сказал "Вчера я не сумел реализировать пинальти" 2-товарищ поэта сказал" Дима! Написал бы и ты что нибудь и для нашей футбольной команды"
Назовите имена футболиста, шахматиста, поэта (с рассуждением)
Достаточно ли видеопамяти объемом 256 кбайт для работы монитора в режиме 640х480 и палитрой из 16 цветов.
Оформить как задачу (Дано, решение, все формулы и т.п)
• Задача:
не (a или b) и (c или b)
1) Фокусник высыпает на стол 501 монету достоинством в один рубль и предлагает задачу: разложить деньги по девяти кошелькам так, чтобы можно было уплатить любую сумму от 1 рубля до 501, не открывая кошельков. Как можно разложить монеты?
2) Микрокалькулятор позволяет с введённым в него числом две операции: умножать на 2 или переставлять его цифры. Можно ли получить из числа 1 число 120?
3) Составьте алгоритмы для исполнителя Черепашка ( в среде ЛогоМира, Кумир )