Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 17.10.2013
Сообщений: 43
1

дан массив целых чисел в котором храниться 20 тысяч элементов

10.12.2013, 10:05. Показов 982. Ответов 1
Метки нет (Все метки)

дан массив целых чисел в котором храниться 20 тысяч элементов.Найти в массиве первый минимальный элемент после
чего во втором массиве из 20 тысяч символов посчитать количество плюсов!В решении надо чтоб символы вбивались рандомно!Помогите народ решить!Спасибо за потраченное время буду очень признателен!
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.12.2013, 10:05
Ответы с готовыми решениями:

Дан массив A из n целых чисел .Найти наименьшее i ,при котором ai=0
Дан массив A из n целых чисел .Найти наименьшее i ,при котором ai=0 помогите !!

Дан массив целых чисел, содержащий 10 элементов,
Дан массив целых чисел, содержащий 10 элементов, записать в этот же массив сначала все...

Pascal. Дан массив целых чисел из 14 элементов. Найти произведение первых трех отрицательных элементов
Дан массив целых чисел из 14 элементов. Найти произведение первых трех отрицательных элементов

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

1
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,153
Записей в блоге: 1
10.12.2013, 14:31 2
Лучший ответ Сообщение было отмечено 7parc как решение

Решение

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
Type mas1=array[1..1] of integer;
     mas2=array[1..1] of char;
Var A:^mas1;
    B:^mas2;
    i,j,n,imin,k:integer;
Begin
    n:=20000;
    GetMem(A,n*Sizeof(integer));
    {$R-}
    For i:=1 to n do
    Begin
      A^[i]:=random(1000)-500;
      if i=1 then imin:=1;
      if A^[i]<A^[imin] then imin:=i;
    End;
    writeln('Min = ',A^[imin]);
    FreeMem(A,n*Sizeof(integer));
    GetMem(B,n*Sizeof(char));
    For i:=1 to n do
    Begin
      B^[i]:=chr(random(256)+1);
      if B^[i]='+' then inc(k);
    End;
    writeln('Плюсов в массиве символов = ',k);
    FreeMem(B,n*Sizeof(char));
    readln;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2013, 14:31

Дан массив целых и дополнительных чисел , что имеют n элементов : a1, a2, …, an
Привет! Друзья помогите пожалуйста решить задачу в Pascal: Дан массив целых и дополнительных...

дан массив целых чисел. Найти количество нечетных элементов массива
я плохо разбираюсь в массивах. Если можно то напишите пож программу как можно в развернутом виде....

Дан массив целых чисел D, состоящий из 30 элементов. Заполнить его с клавиатуры.
Дан массив целых чисел D, состоящий из 30 элементов. Заполнить его с клавиатуры. Заменить...

Дан массив целых чисел, содержащий 10 элементов. Составить новый массив, записать в него сначала все положительные элементы исходного массива
, потом все отрицательные элементы, потом нули... Да прибудет с вами сила...


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

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

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