Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.03.2017, 12:02   #1
Nikol248
Новичок
Джуниор
 
Регистрация: 03.03.2017
Сообщений: 6
По умолчанию Задать одномерный массив из 10 чисел, которые полученные случайным образом.

1) Поменять местами правую и левую половину.
2) Элементы массива больше 30 заменить на 0.
3) Удалить из массива минимальный элемент, а перед максимальным элементом вставить 100.
Nikol248 вне форума Ответить с цитированием
Старый 03.03.2017, 12:38   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
uses crt;
var a:array[1..10]of byte;
i,j:byte;mn,mx:byte;
begin
randomize;clrscr;
for i:=1 to 10 do begin a[i]:=random(32);write(a[i]:3);end;
writeln('-');
for i:=1 to 5 do
begin
j:=a[i];a[i]:=a[i+5];a[i+5]:=j;
end;
writeln;
writeln('-1-');
for i:=1 to 10 do write(a[i]:3);
writeln;
mn:=1;mx:=1;
writeln('-2-');
for i:=1 to 10 do begin
if a[i] > 30 then a[i]:=0; write(a[i]:3);
if a[mn]>a[i] then mn:=i;
if a[mx]<a[i] then mx:=i;
end;
writeln;
writeln('-3-');
writeln('Write Me');
readln;
end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 03.03.2017, 12:58   #3
Nikol248
Новичок
Джуниор
 
Регистрация: 03.03.2017
Сообщений: 6
По умолчанию

Спасибо Вам огромное за помощь. Я очень благодарна Вам, но если Вам не трудно, не могли бы Вы посмотреть еще одну задачу?
Nikol248 вне форума Ответить с цитированием
Старый 03.03.2017, 14:13   #4
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

Nikol248, Хватит спамить форум!
Alar вне форума Ответить с цитированием
Старый 03.03.2017, 14:17   #5
Nikol248
Новичок
Джуниор
 
Регистрация: 03.03.2017
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Alar Посмотреть сообщение
Nikol248, Хватит спамить форум!
Пойми, пожалуйста, мне срочно нужна помощь именно с этими задачами и как можно скорее. Все остальное я уже решила. Это не был спам, я просто пытаюсь быстрее получить решение
Nikol248 вне форума Ответить с цитированием
Старый 03.03.2017, 14:19   #6
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Еще одну ето какую?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 03.03.2017, 14:28   #7
Nikol248
Новичок
Джуниор
 
Регистрация: 03.03.2017
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Еще одну ето какую?
Задать одномерный массив из 10 чисел, которые полученные случайным образом.
1) Вывести на экран только чётные элементы.
2) Элементы массива, стоящие на нечётных позициях заменить на 100.
3) Удалить из массива последний четный элемент, а перед 4 элементом вставить 0.
Nikol248 вне форума Ответить с цитированием
Старый 03.03.2017, 14:59   #8
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
uses crt;
var a:array[1..10]of byte;
i,j:byte;
begin
randomize;clrscr;
for i:=1 to 10 do begin a[i]:=random(32);write(a[i]:3);end;
writeln;
writeln('-1-');
for i:=1 to 10 do if not(odd(a[i])) then write(a[i]:3);
writeln;
writeln('-2-');
for i:=1 to 10 do
begin
if not(odd(i)) then a[i]:=0;
write(a[i]:3);
end;
writeln;
writeln('-3-');
writeln('Write Me');
readln;
end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 03.03.2017, 15:07   #9
Nikol248
Новичок
Джуниор
 
Регистрация: 03.03.2017
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Код:
uses crt;
var a:array[1..10]of byte;
i,j:byte;
begin
randomize;clrscr;
for i:=1 to 10 do begin a[i]:=random(32);write(a[i]:3);end;
writeln;
writeln('-1-');
for i:=1 to 10 do if not(odd(a[i])) then write(a[i]:3);
writeln;
writeln('-2-');
for i:=1 to 10 do
begin
if not(odd(i)) then a[i]:=0;
write(a[i]:3);
end;
writeln;
writeln('-3-');
writeln('Write Me');
readln;
end.
Благодарю Вас!!!
Nikol248 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сгенерировать случайным образом массив целых чисел из n элементов. ANN4 Паскаль, Turbo Pascal, PascalABC.NET 3 17.10.2015 07:42
Паскаль Абс Дан массив целых чисел (n=15) случайным образом. zhagalchin Помощь студентам 2 23.12.2014 15:04
Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-60,60] (Delphi) trender Помощь студентам 4 26.12.2013 13:57
Дан одномерный массив из 10 целых чисел заполненный случайным образом. denpanov Помощь студентам 3 31.10.2012 21:42
Дан массив целых чисел из 25 элементов,заполненный случайным образом числами из промежутка [-35,75] Vinam* Паскаль, Turbo Pascal, PascalABC.NET 3 23.12.2011 13:00