Вопрос по информатике:
Составьте программу,которая формирует массив из 15 случайных целых цифр от -20 до 20 и меняет местами значения первого и последнего элементов массива.На экран выводятся исходные и преобразованные значения.Надо очень СРОЧНО!!!!!!!!!!!!!!!!!!!!!!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.06.2015 21:02
- Информатика
- remove_red_eye 13415
- thumb_up 40
Ответы и объяснения 2
var m:array[1..15] of real;
i:integer;
n:real;
begin
randomize;
for i:=1 to 15 do
begin
m:=random(20)-20;
if( m<0) then
begin
m:=sqr(m);
end;
- 06.06.2015 03:09
- thumb_up 24
program xxx;
var i : integer;
a : array[1..15] of real;
n : real;
begin
randomize;
for i:=1 to 15 do
a[i]:=random(20)-20;
writeln('исходный массив А:');
for i:=1 to 15 do
write(a[i]);
n:=a[1];
a[1]:=a[15];
a[15]:=n;
writeln('полученный массив А:');
for i:=1 to 15 do
write(a[i]);
readln
end.
- 07.06.2015 14:01
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.