Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

skype: aleksandr.gryb
По умолчанию

Код:

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.

__________________
Mailto: media.project@ukr.net
"спасибо" принимаются на webmoney: R676842461689, Z243088649038, U164738001305; AdvancedCash: U853633661253, E181662999107; ПриватБанк.UA
Aleksandr H. вне форума   Ответить с цитированием
Старый 03.03.2017, 13:58   #3
Nikol248
Новичок
 
Регистрация: 03.03.2017
Сообщений: 6
Репутация: 10
По умолчанию

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

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

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

skype: aleksandr.gryb
По умолчанию

Еще одну ето какую?
__________________
Mailto: media.project@ukr.net
"спасибо" принимаются на webmoney: R676842461689, Z243088649038, U164738001305; AdvancedCash: U853633661253, E181662999107; ПриватБанк.UA
Aleksandr H. вне форума   Ответить с цитированием
Старый 03.03.2017, 15:28   #7
Nikol248
Новичок
 
Регистрация: 03.03.2017
Сообщений: 6
Репутация: 10
По умолчанию

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

skype: aleksandr.gryb
По умолчанию

Код:

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.

__________________
Mailto: media.project@ukr.net
"спасибо" принимаются на webmoney: R676842461689, Z243088649038, U164738001305; AdvancedCash: U853633661253, E181662999107; ПриватБанк.UA
Aleksandr H. вне форума   Ответить с цитированием
Старый 03.03.2017, 16:07   #9
Nikol248
Новичок
 
Регистрация: 03.03.2017
Сообщений: 6
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


07:07.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru