Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Преобразовать выражение(Абрамов задача номер 816) https://www.cyberforum.ru/ pascal/ thread144311.html
Преобразовать выражение составленное из цифр и знаков четырех арифметических операций, в постфиксную форму. В постфиксной форме сначала записываются операнды, а затем знак операции. Например:...
Pascal Операторы цикла
помогите решить плиз !!! Вид суммы1^3+3^3+5^3+...+(2N-1)^3 контрольное значение N^2(2N^2-1) Добавлено через 35 минут сама я никогда эт не решу((((
Pascal Последовательность https://www.cyberforum.ru/ pascal/ thread144309.html
Помогите пожалуйста рещить задачу. Вычислисть последовательность значений для функции y=3*( х^2 (в квадрате))-2)/4 для х=0; 0,05; 0,10; 0,15; … ; 10,0. Заранее спасибо.
Pascal Непонятнаое задание https://www.cyberforum.ru/ pascal/ thread144303.html
Помогите пожалуйста решить задачу. Я просто не пойму что мне нужно сделать. Дана декртова система координат. по центру чистый круг, а за кругом все заштриховано. Присвоить z = 1, если точка...
Pascal Операторы цикла, одномерный массив, подпрограммы
Я наверно вас сегодня замучаю но мне правда срочно надо!!1 заранее спасибо всем !!1 вот это все 7 вариант еще раз спасибо
Pascal как переставить числа в очереди таким образом, чтобы в начале последовательности оказались все положительные числа, а в конце отрицательные? https://www.cyberforum.ru/ pascal/ thread144293.html
как переставить числа в очереди таким образом, чтобы в начале последовательности оказались все положительные числа, а в конце отрицательные??????????????????????
Pascal текстовые файлы!! Плз помогите!!Дан текст. Если первый символ текста не является малой латинской буквой то оставить его без изменения. Если же это малая латинская буква,но за начальной группой малых латинских букв не... https://www.cyberforum.ru/ pascal/ thread144286.html Pascal условный оператор
помогите решить пожалуйста буду длагодарна!!! условный оператор : 7 вариант
Pascal численное интегрирование обыкновенных дифференциальных уравнений методом Эйлера и методом Рунге-Кутта. https://www.cyberforum.ru/ pascal/ thread144281.html
подскажите если кто знает. почему при воде шага 0.1 программа не выдает погрешность. значения левой границы 0 значения правой границы 1 ОЧЕНЬ НУЖНО! program kr4_10; uses crt; var...
Pascal НОД четырех чисел https://www.cyberforum.ru/ pascal/ thread144277.html
Составить программу для нахождения НОД(наибольшего общего делителя) четырех натуральных чисел с помощью процедуры или функции!
Pascal Фигуры в массиве
Собственн дан массив 10x10 чисел. Числа входящие в фигуру, координаты которой ---- нужно закрасить. Нужна только строчка с правильной прорисовкой, что-то вида: if (i>=1) and (i<=9) and (j>=8-i) and...
Pascal а все таки про FTP https://www.cyberforum.ru/ pascal/ thread144271.html
Слушайте помогите да я знаю что тема такая уже была но все таки не могли бы разьсяснить как бы мне с помощью паскаля и командной строки отправить файл на народ ftp
Почетный модератор
64073 / 47484 / 32734
Регистрация: 18.05.2008
Сообщений: 115,185
11.06.2010, 17:33 0

Одномерный масcив - Pascal - Ответ 797436

11.06.2010, 17:33. Показов 376. Ответов 8
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
const n=16;
var a:array[1..n] of real;
    i,p:byte;
    mn:real;
begin
clrscr;
randomize;
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:0:2,' ');
 end;
writeln;
p:=n div 2;
mn:=a[1]*a[p+1];
for i:=1 to p do
if a[i]*a[i+p]<mn then mn:=a[i]*a[i+p];
writeln('Минимум произведений=',mn:0:2);
readln
end.


Вернуться к обсуждению:
Одномерный масcив Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2010, 17:33
Готовые ответы и решения:

Дан двумерный массив, из него сделать одномерный. В одномерный массив сначала вписат четные строки потом нечетные
Здравствуйте,собственно задача в заголовке темы. никак не получается все это дело слит в одномерный...

Масcив
1. Дан целочисленный линейный массив из 10 элементов. Найдите наименьшее число K элементов, которое...

Масcив
Задан масив A содержащий n элементов Определить кратно ли 3 минимальный элимент массива. зарание...

Масcив байтов из файла
Подскажите как получить массив байтов из файла? Добавлено через 13 минут бинарного*

8
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2010, 17:33

Динамический масcив с елементами типа struct
вот задание: создать динамический структурный масив вывести на екран struct student{char*name;...

Масcив: Перенести данные масива (x) в масив (y)с смещением на 3.
Нужно перенести данные масива (x)(числа должны бить рандомными) в масив (y)с смещением на...

Дан одномерный массив А, состоящий из N целых чисел. Переписать из него в одномерный массив В все нечетные числа
У меня есть задание: Дан одномерный массив А, состоящий из N целых чисел. Переписать из него в...

Матрица и одномерный массив (Составить одномерный массив, содержащий количество буквенных символов в каждом из ее столбцов, подсчет символов)
Помогите решить задачку: Дана матрица 5х7, элементами которой являются значения символьного типа....

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