2 задачи на массивы

@crazybober · Регистрация: 06.04.2009

Студворк — интернет-сервис помощи студентам

Доброго времени суток! У меня две задачки на массивы, помогите плиз...
1) В одномерном числовом массиве замените все нулевые элементы на единицы.
2)Массив предназначен для хранения значений ростов 12 человек.С помощью датчика случайных чисел заполнить массив целыми значениями, лежащими в диапозоне от 163 до 190 см включительно

Заранее благодарен!

@begemotikdin · 06.04.2009, 21:38

Сообщение от crazybober

1) В одномерном числовом массиве замените все нулевые элементы на единицы.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
a:array[1..5] of word;
i:integer;
begin
randomize;
for i:=1 to 5 do
 a[i]:=random(2);
for i:=1 to 5 do
write(a[i],' ');
writeln;
 for i:=1 to 5 do
  begin
   if a[i]=0 then a[i]:=1;
  end;
for i:=1 to 5 do
 write(a[i],'  ');
readln;
end.

@John_Pa9JIbHuK · 06.04.2009, 22:03

Вторая:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program oo;
var
a:array [1..12] of integer;
i:integer;
begin
randomize;
for i:=  1 to 12 do
begin
a[i]:=random(128)+63;
write(a[i],'  ');
end;
end.

@crazybober · 06.04.2009, 22:06 **[ТС]**

Спасибо огромное за помощь!!

@John_Pa9JIbHuK · 06.04.2009, 22:13

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@crazybober 0 / 0 / 0 Регистрация: 06.04.2009 Сообщений: 30

	2 задачи на массивы 06.04.2009, 21:29. Показов 2502. Ответов 4 Метки нет (Все метки) Доброго времени суток! У меня две задачки на массивы, помогите плиз... 1) В одномерном числовом массиве замените все нулевые элементы на единицы. 2)Массив предназначен для хранения значений ростов 12 человек.С помощью датчика случайных чисел заполнить массив целыми значениями, лежащими в диапозоне от 163 до 190 см включительно Заранее благодарен! 0

@crazybober 0 / 0 / 0 Регистрация: 06.04.2009 Сообщений: 30
	06.04.2009, 22:06 [ТС]
	Спасибо огромное за помощь!! 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	06.04.2009, 22:13
	0