Вопрос по информатике:
Создать массив из 15 элементов. Заполнить его случайными числами от 0 до 50. Поменять местами первый и последний, восьмой и седьмой тоже. Вывести на экран исходный массив. ПАСКАЛЬ
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.04.2017 18:00
- Информатика
- remove_red_eye 11471
- thumb_up 18
Ответы и объяснения 2
i,z,x: Integer;
begin
for i:=0 to 14 do
begin
a[i]:=random(50);
writeln('Число ',i+1,': ',a[i]);
end;
z:=a[0];x:=a[14];
a[0]:=x;a[14]:=z;
z:=a[6];x:=a[7];
a[6]:=x;a[7]:=z;
for i:=0 to 14 do
begin
writeln('Число ',i+1,': ',a[i]);
end;
end.
- 11.04.2017 08:11
- thumb_up 33
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,0,50); a.Println;
Swap(a[0],a[14]); Swap(a[6],a[7]); a.Println
end.
Пример
15 47 4 20 36 42 27 40 2 45 26 26 48 25 17
17 47 4 20 36 42 40 27 2 45 26 26 48 25 15
- 12.04.2017 06:14
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.