Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
игра гонки Pascal
помогите составить план для игры гонки, нужно чтоб можно было вводить имя и показывало лучший результат, и как написать карту??? заводишь несколько(можно) массивов и вписываешь в него все что будет связано с игрой,например,предметы там всякие и. т.д
Pascal Динамический файл и еще кое-что... 1) Создать массив динамической памяти A(n). Найти число четных, положительных элементов и их сумму. вот эта задача просто ужас(... 2) Дан файл, содержащий информацию о товарообмене 5-и стран в... 1) Создать массив динамической памяти A(n). Найти число четных, положительных элементов и их сумму. const n=10; type a=arrayof integer; var p:^a; i,k,s:integer; begin new(p); randomize;... https://www.cyberforum.ru/ pascal/ thread185961.html
Pascal Вывести студентов которые имеют средний балл, который больше 85 https://www.cyberforum.ru/ pascal/ thread185975.html
Подскажите пожалуйста почему в данном программном коде в выделенной области(последний цикл) не работает массив. там нужно вывести студентов которые имеют средний бал, который больше 85, балы... for i:=1 to 7 do Я так и не понял сколько записей, вроде в начале 6. Что значит неправильно выводит имена? У меня вывело в конце так(скрин). как сделать сортировку этих данных по фамилии Так у...
Pascal Дано натуральное число n. Среди чисел 1,…,n найти такие, запись которых совпадает с последними цифрами записи их квадратов https://www.cyberforum.ru/ pascal/ thread185929.html
Дано натуральное число n. Среди чисел 1,…,n найти такие, запись которых совпадает с последними цифрами записи их квадратов (например, 6^2=36, 25^2=625). Застрял....помогите. Посмотрите в поиске Автоморфные числа, не раз было.
Pascal Текстовый файл Дано два файла, содержащих одинаковое кол-во целых чисел. Перезаписать первый файл следующим образом: если число из второго файла больше соответствующего числа в первом, то число из второго файла... Кроме того что вообще все с ошибками написано, так еще и по сути неверно. Нельзя просто переписать текстовый файл сам в себе, только в другой файл. Если есть необходимость, то исходный потом... https://www.cyberforum.ru/ pascal/ thread185958.html Pascal Построение графика функции Друзья, график этой функции tgX+sqrt(e(X)-1) доставил мне не мало проблем и я вынужден попросить у вас помощи. Зарание благодарю))) uses graph; function F(x:real):real; begin F:=sin(x)/cos(x)+sqrt(exp(x)-1); end; var xn,xk,max,min,x,y,mx,my,dx:real; x0,y0,i,px,py:integer; s:string; begin x0:=0; https://www.cyberforum.ru/ pascal/ thread186048.html
Pascal программа по нахождению функции https://www.cyberforum.ru/ pascal/ thread185960.html
Здравствуйте. Помогите пожалуйста вот с таким заданием. Нужно составить программу для вычесления функций z. Ввести программу в компьютер, вычеслить значение функции и проверить ее для самостоятельно... if y-3>x then z:=3*y-x else if y-3<x then z:=x+y else z:=0;
Pascal двумерный массив в двумерном массиве размерностью m*n элементов необходимо сделать преобразование: в каждой строке у последнего отрицательного элемента следует поменять знак помогите написать код программы и... в двумерном массиве размерностью m*n элементов необходимо сделать преобразование: в каждой строке у последнего отрицательного элемента следует поменять знак помогите написать код программы и... https://www.cyberforum.ru/ pascal/ thread185926.html
Pascal Прочитать 20 целых чисел и поместить наименьшее в X https://www.cyberforum.ru/ pascal/ thread186052.html
1)Прочитать 20 целых чисел и поместить наименьшее в X поместить первое число в X Помещать остальные числа в Y Использовать С как счетчик 20-ти чисел Поместить наименьшее числа в X
Pascal матрицы https://www.cyberforum.ru/ pascal/ thread185925.html
помогите решить 2 задачи с матрицами. 1)дана матрица A(4,4) натуральных чисел. Проверить, является ли сумма элементов каждой стоки простым числом. 2)Выписать строки матрицы с 2-мя простыми...
Pascal получить матрицу порядка n
Помогите с задачкой,пожалуйста. получить квадратную матрица порядка n: n.........0 n-1 n n-2 n-1 n ........... 1 2 3...n uses crt; const nmax=20; var a:array of integer; n,i,j:byte; begin clrscr; repeat write('Размер матрицы до ',nmax,' n='); readln(n); until n in ;
Pascal Пару программ(Итерационные алгоритмы и функции,процедуры)!!!!! https://www.cyberforum.ru/ pascal/ thread186031.html
1. Условие: Найдите корень уравнения tg(1,5733x)-2,3041x=0 с точностью e методом простой итераций... и еще 1 с помощью процедур,функций... 2. Определить количество номеров машин,содерж. 3...
Неадекват и грубиян
 Аватар для pryda
310 / 297 / 301
Регистрация: 22.02.2010
Сообщений: 647
04.11.2010, 15:55 0

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

04.11.2010, 15:55. Показов 4384. Ответов 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
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.11.2010, 15:55
Готовые ответы и решения:

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

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

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

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
04.11.2010, 15:55
Помогаю со студенческими работами здесь

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

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

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

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

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

0
Новые блоги и статьи
Protobuf в Go и новый Opaque API
golander 15.03.2025
Распределенные системы опираются на эффективные протоколы обмена данными — о чем вы, скорее всего, прекрасно знаете, если работаете с микросервисной архитектурой. Protocol Buffers (Protobuf) от. . .
Преобразование строк в C++: std::from_chars от C++17 до C++26
NullReferenced 15.03.2025
Конвертация строк в числа — задача, с которой сталкивается практически каждый C++ разработчик. Несмотря на кажущуюся простоту, эта операция таит множество подводных камней и неочевидных последствий. . .
Управление памятью в Java и новые сборщики мусора
Javaican 15.03.2025
Эффективное управление памятью всегда было ахиллесовой пятой высоконагруженных Java-приложений. При разработке на Java мы обычно полагаемся на автоматическое управление памятью через сборщики мусора. . .
Angular или Svelte - что выбрать?
Reangularity 15.03.2025
Во фронтенд-разработке Angular и Svelte представляют собой два совершенно разных подхода к решению схожих задач. Один — полноценный, мощный монолит с корпоративной поддержкой, другой — компактный,. . .
Spring Cloud микросервисы: обнаружение и отслеживание
Javaican 15.03.2025
В разработке корпоративных приложений всё больше команд обращают внимание на микросервисную архитектуру. Но с этой архитектурой приходят и специфичные трудности: как сервисам находить друг друга в. . .
Запуск контейнера Docker в облаке
Mr. Docker 15.03.2025
Что такое Docker-контейнер? Если коротко — это легковесный, автономный пакет, содержащий всё необходимое для запуска приложения: код, зависимости, библиотеки и конфигурации. Когда мы говорим о. . .
Осваиваем Kubernetes: Подробная шпаргалка
Mr. Docker 15.03.2025
Kubernetes — это открытая платформа для автоматизации развертывания, масштабирования и управления контейнеризированными приложениями. Он был создан для решения проблем, с которыми сталкиваются. . .
Лучшие PHP REST API фреймворки
Jason-Webb 15.03.2025
Современные PHP REST API фреймворки предлагают большой набор функциональности: от автоматической валидации данных и управления маршрутизацией до генерации документации и интеграции с различными. . .
Многопоточность в Java с Project Loom: виртуальные или обычные потоки
Javaican 15.03.2025
Многопоточность всегда была одноим из основных элементов в разработке современного программного обеспечения. Она позволяет приложениям обрабатывать несколько задач одновременно, что критично для. . .
Что нового в Swift 6 и особенности миграции
mobDevWorks 15.03.2025
Swift 6 — это новый крупный релиз языка программирования от Apple, анонсированный на WWDC 2024. Если вы следили за эволюцией Swift, то наверняка заметили, что многие значимые возможности, которые. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru