Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 07.03.2012
Сообщений: 21
1

Заполнить одномерный массив из 15 элементов случайными целыми числами

12.03.2012, 09:26. Показов 2331. Ответов 2
Метки нет (Все метки)

Заполнить одномерный массив из 15 элементов случайными целыми числами. Вывести на экран массив, раскрасив розовым цветом положительные элементы, расположенные после максимального элемента.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2012, 09:26
Ответы с готовыми решениями:

Одномерный массив заполнить целыми случайными числами и вывести на экран в виде строки
Не могли бы вы мне помочь??? 1.одномерный массив заполнить целыми случайными числами и вывести на...

Заполнить одномерный массив из 15 элементов целыми числами.
Заполнить одномерный массив из 15 элементов целыми числами. Определить, сколько процентов от всего...

Заполнить одномерный массив из 15-ти элементов случайными числами затем к каждому четному элементу массива прибавить по 1
Заполнить одномерный массив из 15-ти элементов случайными числами затем к каждому четному элементу...

Заполнить двумерный массив А размером MxN случайными целыми числами
Пожалуйста, кто-нибудь решите эту задачу. Буду очень благодарен. Заполнить двумерный массив А...

2
Модератор
63391 / 47080 / 32450
Регистрация: 18.05.2008
Сообщений: 114,118
12.03.2012, 09:40 2
Лучший ответ Сообщение было отмечено vadimkop93 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
const n=15;
var a:array[1..n] of integer;
    i,imx,k:integer;
begin
clrscr;
randomize;
for i:=1 to n do
a[i]:=-10+random(40);
imx:=1;
for i:=2 to n do
if a[i]>a[imx] then imx:=i;
k:=0;
for i:=1 to n do
 begin
  if (i>imx)and(a[i]>0)then
   begin
    k:=1;
    textcolor(13);
   end
  else textcolor(15);
  write(a[i],' ');
 end;
writeln;
writeln;
textcolor(15);
writeln('Первый максимальный элемент=',a[imx]);
if k=0 then write('После максимального нет положительных элементов');
readln
end.
1
0 / 0 / 0
Регистрация: 07.03.2012
Сообщений: 21
12.03.2012, 09:57  [ТС] 3
Puporev, Спасибо,очень выручаешь)
 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2012, 09:57

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Заполнить массив различными случайными целыми числами, отсортировать и вывести его
Организуйте массив, содержащий 20 различных целых чисел. После этого элементы массива...

Заполнить два массива, размером 20 и 30 элементов, соответственно, случайными целыми числами в диапазоне от -50 до 50
Заполнить два массива, размером 20 и 30 элементов, соответственно, случайными целыми числами в...

Одномерный массив А заполнить случайными числами из диапазона [–2..30].
Одномерный массив А заполнить случайными числами из диапазона . Переместить нулевые элементы...

Заполнить двумерный массив (5,4) целыми случайными числами в диапазоне от 0 до 20 и найти номер строки с наибольшей суммой чисел.
Заполнить двумерный массив (5,4) целыми случайными числами в диапазоне от 0 до 20 и найти номер...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.