Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Прочитать 20 целых чисел и поместить наименьшее в X 1)Прочитать 20 целых чисел и поместить наименьшее в X поместить первое число в X Помещать остальные числа в Y Использовать С как счетчик 20-ти чисел Поместить наименьшее числа в X https://www.cyberforum.ru/ pascal/ thread186052.html Pascal Построение графика функции
Друзья, график этой функции tgX+sqrt(e(X)-1) доставил мне не мало проблем и я вынужден попросить у вас помощи. Зарание благодарю)))
Pascal Пару программ(Итерационные алгоритмы и функции,процедуры)!!!!! https://www.cyberforum.ru/ pascal/ thread186031.html
1. Условие: Найдите корень уравнения tg(1,5733x)-2,3041x=0 с точностью e методом простой итераций... и еще 1 с помощью процедур,функций... 2. Определить количество номеров машин,содерж. 3 одинаковые цифры(номер машины четырехзначный)(с вводом номеров,от пользователя...)...
Pascal Вывести студентов которые имеют средний балл, который больше 85 https://www.cyberforum.ru/ pascal/ thread185975.html
Подскажите пожалуйста почему в данном программном коде в выделенной области(последний цикл) не работает массив. там нужно вывести студентов которые имеют средний бал, который больше 85, балы выводит правильно а фамилии нет. и если можно подскажите как сделать сортировку этих данных по фамилии Program z1; uses crt; type student=record name:string;
Pascal получить матрицу порядка n
Помогите с задачкой,пожалуйста. получить квадратную матрица порядка n: n.........0 n-1 n n-2 n-1 n ........... 1 2 3...n
Pascal Динамический файл и еще кое-что... https://www.cyberforum.ru/ pascal/ thread185961.html
1) Создать массив динамической памяти A(n). Найти число четных, положительных элементов и их сумму. вот эта задача просто ужас(... 2) Дан файл, содержащий информацию о товарообмене 5-и стран в течение 20 л. Под товарообменом понимаются данные об экспорте и импорте из i-ой в j-ю. Найти все страны у которых величина экспорта за 20 лет превышет величину импорта. Добавлено через 1 час 23...
Pascal программа по нахождению функции Здравствуйте. Помогите пожалуйста вот с таким заданием. Нужно составить программу для вычесления функций z. Ввести программу в компьютер, вычеслить значение функции и проверить ее для самостоятельно выбранных терх пар значений переменных x и y. z=\left\{\begin{matrix}3y-x\\ x+y\\ 0\end{matrix}\right. y-3>x y-3<x y-3=x https://www.cyberforum.ru/ pascal/ thread185960.html Pascal Текстовый файл
Дано два файла, содержащих одинаковое кол-во целых чисел. Перезаписать первый файл следующим образом: если число из второго файла больше соответствующего числа в первом, то число из второго файла записывается в 1-ый файл на место меньшего. Помогите пожалуйста) Добавлено через 1 час 29 минут што то подобное получилось...но не то...помогите пожалуйста! uses crt; var f1, f2:text;...
Pascal игра гонки https://www.cyberforum.ru/ pascal/ thread185939.html
помогите составить план для игры гонки, нужно чтоб можно было вводить имя и показывало лучший результат, и как написать карту???
Pascal Дано натуральное число n. Среди чисел 1,…,n найти такие, запись которых совпадает с последними цифрами записи их квадратов https://www.cyberforum.ru/ pascal/ thread185929.html
Дано натуральное число n. Среди чисел 1,…,n найти такие, запись которых совпадает с последними цифрами записи их квадратов (например, 6^2=36, 25^2=625). Застрял....помогите.
Pascal двумерный массив
в двумерном массиве размерностью m*n элементов необходимо сделать преобразование: в каждой строке у последнего отрицательного элемента следует поменять знак помогите написать код программы и сделать блок схему!!!
Pascal матрицы https://www.cyberforum.ru/ pascal/ thread185925.html
помогите решить 2 задачи с матрицами. 1)дана матрица A(4,4) натуральных чисел. Проверить, является ли сумма элементов каждой стоки простым числом. 2)Выписать строки матрицы с 2-мя простыми числами Заранее спасибо!!!!
Неадекват и грубиян
310 / 297 / 301
Регистрация: 22.02.2010
Сообщений: 647
04.11.2010, 15:55 0

Дан целочисленный массив А размера 10. Вывести номер первого и последнего из тех его элементов А[i] - Pascal - Ответ 1083786

04.11.2010, 15:55. Показов 4006. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a:array[1..10]of integer;
    i,k:integer;
begin
k:=0;
randomize;
for i:=1 to 10 do
a[i]:=random(20)-10;
for i:=2 to 9 do
if (a[1]<a[i])and(a[i]<a[10]) then
begin
    writeln(a[i]);
    inc(k);
end;
if k=0 then writeln(0);
end.


Вернуться к обсуждению:
Дан целочисленный массив А размера 10. Вывести номер первого и последнего из тех его элементов А[i] Pascal
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2010, 15:55
Готовые ответы и решения:

Дан целочисленный массив A размера 10. Вывести номер первого из тех его элементов A[i]
Ссылки и указатели. Дан целочисленный массив A размера 10. Вывести номер первого из тех его...

Дан целочисленный массив A размера 10. Вывести порядковый номер последнего из тех его элементов Ak, которые удовлетворяют двойному неравенству
Дан целочисленный массив A размера 10. Вывести порядковый номер последнего из тех его элементов Ak,...

Дан целочисленный массив. Вывести порядковый номер последнего из тех его элементов, которые удовлетворяют двойному неравенству
1.Дан целочисленный массив А размера 10. Вывести порядковый номер последнего из тех его элементов...

Массив: Вывести порядковый номер последнего из тех его элементов AK, которые удовлетворяют двойному неравенству A1 < AK
Дан целочисленный массив A размера 10. Вывести порядковый номер последнего из тех его элементов AK,...

1
04.11.2010, 15:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2010, 15:55
Помогаю со студенческими работами здесь

Дан массив размера N . найти номер его последнего локального максимума
помогите пожалуйста решить задачи по паскалю: 1. дан массив размера N, все элементы которого ,...

Дан массив размера N. Найти номер его первого локального минимума
Дан массив размера N. Найти номер его первого локального минимума (локальный минимум — это элемент,...

Дан массив размера N. Найти номер его первого локального минимума
Дан массив размера N. Найти номер его первого локального минимума (Локальный минимум - это...

Дан массив размера N. Найти номер его первого локального минимума
15. Дан массив размера N. Найти номер его первого локального минимума. Локальный минимум — это...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru