Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Количество положительных элементов массива https://www.cyberforum.ru/ pascal/ thread1035513.html
Даны два произвольных массива F, G размерности n,m соот¬ветственно. Найти количество положительных элементов мас¬сива F и количество положительных элементов массива G. Исходные данные взять...
Поменять кодировки для входного файла считаемого массивом с ANSI на ASCII(DOS) Pascal
procedure ArrQuestion(var A:ArrString; N:byte); var i,j:integer; s:string; x:integer; begin assign(f,'E:\Temper.txt'); reset(f); for i:=1 to n do begin readln(f,A); end; ...
Pascal Получить массив по правилу Получить массив по правилу X1, X2 ...., Xn по правилу Xi=1, если в i-ом столбце матрицы есть хотя бы 1 элемент, превышающий заданное значение C, иначе Xi=0. Найти также общее число элементов, которые... https://www.cyberforum.ru/ pascal/ thread1035266.html Pascal Проверить, верно ли что в строке чередуются гласные и согласные буквы Операции над строками. Проверить, верно ли что в строке чередуются гласные и согласные буквы. Пробелы игнорируются. Program l1; Var gl,sogl:set of char; a:String; i:Integer; g:boolean;... https://www.cyberforum.ru/ pascal/ thread1035214.html
Pascal структурирование программ в паскале с использованием функции
составьте программу вычисления суммы
Pascal Вычисление сумм с использованием рекуррентных соотношений Составьте программу вычисления суммы ( для натуральных чисел k, n, m, p, вещественных х и а>1). https://www.cyberforum.ru/ pascal/ thread1035196.html
Pascal Вывести на экран последовательность букв английского алфавита через одну https://www.cyberforum.ru/ pascal/ thread1035189.html
Вывести на экран последовательность букв английского алфавита через одну. Примечание: Использовать функцию Succ(C). Функция Succ возвращает следующее значение порядковой величины. Например:...
Pascal Создайте квадратную матрицу
Создайте квадратную матрицу из N строк и N столбцов состоящую из натуральных чисел.Зеркально отобразите ее элементы относительно вертикальной оси симметрии и выведите результат на экран монитора.
Pascal Обработка текста и чисел в паскале https://www.cyberforum.ru/ pascal/ thread1035183.html
1. Составьте программу,выводящую на экран самую длинную в тексте последовательность идущих подряд букв "о".
Pascal C клавиатуры вводятся числа пока не будет C клавиатуры вводятся числа пока не будет введен 0 определить количество четных и нечетных. https://www.cyberforum.ru/ pascal/ thread1035178.html
Pascal обработка строковых величин
1.Составьте программу, позволяющую выяснить, есть ли в слове Х хотя бы одна из букв "о" или "а".
Pascal программирование на паскале с использованием процедур, проверяющих является натуральное число простым или составным https://www.cyberforum.ru/ pascal/ thread1035167.html
составьте программу, определяющую, можно ли представить заданное натуральное число М в виде произведения двух простых сомножителей.
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,208
Записей в блоге: 1
10.12.2013, 14:31 0

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

10.12.2013, 14:31. Показов 996. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
дан массив целых чисел в котором храниться 20 тысяч элементов Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.12.2013, 14:31
Готовые ответы и решения:

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

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

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

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

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 элементов. Составить новый массив, записать в него сначала все положительные элементы исходного массива
, потом все отрицательные элементы, потом нули... Да прибудет с вами сила...

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