|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.11.2011, 13:14 | #1 |
Регистрация: 20.11.2011
Сообщений: 3
|
ОЧЕНЬ прошу помочь решить задачу по массивам
Крайне прошу помочь решить 2 задачи по массивам в турбо паскале
1 - ая задача: Заполните массив 15-случайными числами. После этого отдельно первых пяти элементов массива, вторых пяти элементов массива и последних 5-ти элементов сортируются по возрастанию. После чего заменить все элементы которые = 0 на число С. Содержимое массива выводится на экран 3 раза после заполнения, после сортировки и после замены. Основа для задачи уже дана: Program sqrt2 Var a:array [1..100] of integer; j,n,r,i integer Begin write ('Skolko elementov v massive') Read(n) Randomize for i:1 to n do a[i]:=random (100); write('ishodnyimassiv'); for i:=1 to n do write (a[i]:4); for i:=1 to n-1 do for j=i+1 to n do if a[j]<a[i] then begin r:=a[i];a[i]:=a[j];a[j]:=r; writeln('pechat sortirovannogo massiva') for i:1 to n do write (a[i]:4); end; end. И еще 1-у задачу (Символьные переменные. Тип данных char.) Дана последовательность 10-ти чисел. Известно, что в последовательности имеется хотя бы одня запятая. Найти номер: последней по порядку запятой Основа для задачи уже дана тоже: Program cx1 var c:char; n:integer; begin read(c) a:=0 while c<>'/' do begin if c='!' then n:=n+1 read(c) end; write('kolichestvo !'=n) end. |
20.11.2011, 14:35 | #2 | ||
АльTRUEи$т
Форумчанин
Регистрация: 19.03.2009
Сообщений: 784
|
Цитата:
Код:
Цитата:
|
||
20.11.2011, 20:58 | #3 | |
Форумчанин
Регистрация: 29.09.2011
Сообщений: 103
|
это вы умеете
Цитата:
Код:
|
|
21.11.2011, 00:54 | #4 |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
9i., вопрос был про первые 5, вторые 5 и последние 5..
Предпочитаю на "ты".
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Неправильно считает, очень прошу помочь | Yulya92 | Общие вопросы C/C++ | 4 | 12.11.2009 23:33 |
Прошу помочь. Очень срочно!!! | RAVEN23 | Помощь студентам | 5 | 06.06.2009 20:32 |
Очень прошу помочь! | goggin | Помощь студентам | 1 | 15.12.2008 19:11 |
Очень прошу помочь со SciLab и Maxima | ARES-IVAN | Помощь студентам | 2 | 19.11.2008 17:39 |