Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Поменять местами наибольший по модулю и первый компоненты файла https://www.cyberforum.ru/ pascalabc/ thread279771.html 1.Ввести файл F из 11 элементов. Определить в нём сумму элементов стоящих на позициях, чей номер больше записанного в них значения. 2. Ввести файл F . Каждый элемент, стоящий на нечетной позиции в файле заменить остатком от деления этого элемента на 7. Файл вывести до и после преобразования. 3. Ввести файл F действительных чисел и выдать его на печать. Поменять местами наибольший по модулю...	Pascal ABC как соединить две программы на паскале АБС посмотрите пожалуйста... 1) это просто мячик // Анимация без мерцания. Использование LockDrawing uses GraphABC; var i: integer; begin LockDrawing; for i:=1 to 500 do
Pascal ABC Разобрать несколько строк кода https://www.cyberforum.ru/ pascalabc/ thread279761.html Доброго времени суток,у меня возникла в вам пара вопросов. У меня есть готовая программа по паскалю,но меня интересуют некоторые названия,если не сложно подскажите: : uses Crt; const eps = 0.00001; type elptr = ^el; el = record	Pascal ABC Массив для жд билетов Помогите составить до конца программу. Вот задание: В поезде 18 вагонов, в каждом из которых 36 мест. Информация о проданных билетах хранится в двухмерном массиве, номера строк которых соответствуют номерам вагонов, а номера столбцов – номерам мест. Если билет на то или иное место продан, то соответствующий элемент массива имеет значение 1, в противном случае – 0. Определить номера вагонов, в... https://www.cyberforum.ru/ pascalabc/ thread279738.html
Pascal ABC Дана фраза. Определить, сколько в ней предложений дана фраза. определить сколько в ней предложений.	Pascal ABC Найти произведение только тех чисел, которые больше заданного числа https://www.cyberforum.ru/ pascalabc/ thread279719.html дана последовательность целых положительных чисел. найти произведение только тех чисел, которые больше заданного числа М. если таких нет, то выдать сообщение об этом.
Pascal ABC Подсчитать число счастливых билетов с различными номерами https://www.cyberforum.ru/ pascalabc/ thread279715.html автобусный билет считается счастливым, если в его шестизначном номере сумма первых трех цифр равна сумме трёх последних. подсчитать число счастливых билетов с различными номерами( от 000001 до 999999)	Pascal ABC Программка на строки (спасайте,кто может!) Здравствуйте! Помогите, пожалуйста, с программкой на строки. Задача: Дана строка, состоящая из нескольких слов. Найти номер слова 'then' за которым следует 'begin'. Слова могут разделяться одним или несколькими пробелами.
Pascal ABC Найти произведение элементов побочной диагонали матрицы задана целочисленная квадратная матрица размера 6х6. заполнить её случайными числами и найти произведение элементов побочной диагонали данной матрицы. https://www.cyberforum.ru/ pascalabc/ thread279710.html	Pascal ABC Составьте программу, вычёркивающую каждую третью букву https://www.cyberforum.ru/ pascalabc/ thread279709.html составьте программу, вычёркивающую каждую третью букву из заданного слова.
Pascal ABC Поменять местами элементы, стоящие на нечётных местах, с элементами, стоящими на чётных в данном массиве из 8 целых чисел поменять местами элементы стоящие на нечётных местах с элементами, стоящими на чётных.	Pascal ABC Найти длину каждого слова в строке https://www.cyberforum.ru/ pascalabc/ thread279707.html дана строка. слова в ней разделены пробелами. найти длину каждого слова в строке.

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

21.04.2011, 17:52

Вычислить количество элемента массива, для которых выполняется неравенство - Pascal ABC - Ответ 1574553

21.04.2011, 17:52. Показов 2398. Ответов 10

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal

uses crt;
const n=13;
var a:array[1..n] of integer;
    i,j,imx1,imx2:byte;
begin
clrscr;
writeln('Введите элементы массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
imx1:=1;
imx2:=2;
for i:=3 to n do
 begin
  if a[i]>a[imx1] then
   begin
    imx2:=imx1;
    imx1:=i;
   end
  else if a[i]>a[imx2] then imx2:=i;
 end;
writeln('Первые 2 наибольших a[',imx1,']=',a[imx1],'  a[',imx2,']=',a[imx2]);
write('Их сумма=',a[imx1]+a[imx2]);
readln
end.

Вернуться к обсуждению:
Вычислить количество элемента массива, для которых выполняется неравенство Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

21.04.2011, 17:52

Готовые ответы и решения:

Вычислить количество элементов матрицы, для которых выполняется неравенство
Создать массив :array , заполнить его используя генератор случайных чисел, вывести его на экран в...

Подсчитать количество элементов одномерного массива, для которых выполняется неравенство i*i<ai<i!
Подсчитать количество элементов одномерного массива, для которых выполняется неравенство i*i<ai<i!

Вычислить количество элементов массива, для которых выполняется неравенство
Создать массив с элементами {a}_{kn}=n\cdot f(k) + sin(k)g(n), где k,n=1,2,3,4. f(k) =...

Найти количество элементов матрицы, для которых выполняется неравенство 1<a[i,j]<6
Вычеслите количество элементов массива, для которых выполняется неравенство 1<a<6. В двумерном...

	21.04.2011, 17:52

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

21.04.2011, 17:52

Помогаю со студенческими работами здесь

Вычислить произведение всех значений функции у, для которых справедливо неравенство
Используя функцию F, построить массив у с эл-тами у= F(k). Вычислить произведение всех значений...

Вычислить произведение всех значений функции у, для которых справедливо неравенство
Вычислить произведение всех значений функции у, для которых справедливо неравенство 1<у<3,1....

Получить массив X1,X2,...Xn по правилу: Xi=1, если для всех j=1,2,...n выполняется неравенство Aji< Aij
Вот такое задание, необходимо решить. Может кто поможет. Получить массив X1,X2,...Xn по...

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

Наверх