Вопрос по информатике:
Pascal ABC
Имеется массив целых чисел размером N (задаётся константой в коде).
Заполнить его случайными целыми числами, лежащими в диапазоне от a до b ( a >0, b >0 вводятся с клавиатуры).
Вывести полученный массив.
Заменить последний положительный элемент массива на второй элемент.
Вывести новый массив.
- 22.06.2016 13:51
- Информатика
- remove_red_eye 10877
- thumb_up 47
Ответы и объяснения 1
var
mas:array [1..n] of integer;
i,x,j,a,b,index:integer;
begin
write('Введите диапазон от a до b: ');
readln(a,b);
for i:= 1 to n do
begin
mas[i]:=Random(b-a+1)+a;
end;
writeln('Полученный массив: ');
for i:= 1 to n do
write(mas[i]:4);
for i:=n downto 1 do
if mas[i]>0 then
begin
index:=i;
break
end;
mas[index]:=mas[2];
writeln;
writeln('Результат выполнения задания: ');
for i:= 1 to n do
write(mas[i]:4);
readln
end.
Введите диапазон от a до b: 10 40
Полученный массив:
25 13 38 31 39 12 16 11 26 33
Результат выполнения задания:
25 13 38 31 39 12 16 11 26 13
- 23.06.2016 11:07
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.