Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Сформировать двумерный массив и удалить из него все строки, в которых встречается заданное число https://www.cyberforum.ru/ pascalabc/ thread1039295.html Сформировать двумерный массив и удалить из него все строки, в которых встречается заданное число. Срочно, заранее спасибо	Файлы Pascal ABC Задача:
Pascal ABC Напечатать элементы множества с определением их числа https://www.cyberforum.ru/ pascalabc/ thread1039291.html Организовать процедуру printset, печатающую элементы множества А с определением их числа.	Pascal ABC Вывести среднее значение массива и количество чисел больших среднего арифметического https://www.cyberforum.ru/ pascalabc/ thread1039285.html Дан линейный массив целых чисел. Вывести среднее значение массива и количество чисел больших среднего арифметического.
Вычислить значение выражения Pascal ABC Задачи должны быть только в цикле на ABC Pascal. задача№1 https://www.cyberforum.ru/attachments/337785d1386268192 задача№2 https://www.cyberforum.ru/attachments/337786d1386268192 задача№3 https://www.cyberforum.ru/attachments/337787d1386268192	Pascal ABC В массиве целы чисел заменить нулевые элементы на max элемент В массиве целы чисел заменить нулевые элементы на max элемент. Вывести количество замен, старый и новый массивы. Если замен не было, вывести сообщение "замен не было". https://www.cyberforum.ru/ pascalabc/ thread1039280.html
Pascal ABC нужно написать программу) заранее благодарен https://www.cyberforum.ru/ pascalabc/ thread1039255.html Задан массив размером N(5,4), нужно минимальный элемент массива заменить элементом, который имеет максимальное значение.	Дано целое число N и набор из N чисел. Вывести количество элементов и сами элементы Pascal ABC Дано целое число N и набор из N чисел. Вывести количество элементов и сами элементы, содержащихся между первым и последним минимальными элементом.
Pascal ABC Найти минимальное положительное число из данного набора Дано целое число N и набор из N чисел. Найти минимальное положительное число из данного набора. Если положительные числа в наборе отсутствуют, то вывести сообщение. https://www.cyberforum.ru/ pascalabc/ thread1039238.html	Pascal ABC Типизированные файлы Pascal Задание: Пользователь вводит с клавиатуры символы в первый файл. Во втором файле для каждой строки первого файла найти и написать слово из тех букв английского алфавита, которые не встречаются во входных данных ни как строчные, ни как прописные. Буквы должны идти в алфавитном порядке. Каждая буква должна быть распечатана один раз, буквы построенного слова должны быть прописными. Если во... https://www.cyberforum.ru/ pascalabc/ thread1039236.html
Сума чисел непустой последовательности Pascal ABC Дана непустая последовательность целых чисел, заканчивающихся нулем. Найти сумму всех чисел последовательность. Последовательность можно самому указывать.	Pascal ABC Дано целое число N и набор из N чисел. Найти минимальный https://www.cyberforum.ru/ pascalabc/ thread1039233.html Дано целое число N и набор из N чисел. Найти минимальный из нечётных положительных элементов данного набора. Вывести его индекс, и количество таких элементов в массиве.

Svager

399 / 378 / 408

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

Сообщений: 1,204

12.12.2013, 22:02

В массиве целых чисел подсчитать количество нечётных положительных чисел, больших 50 - Pascal ABC - Ответ 5483493

12.12.2013, 22:02. Показов 2077. Ответов 2

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

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

Решение

Pascal

uses crt;
const n=10;
var a,b:array[1..n] of integer;
i,j,k,min:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
 a[i]:=random(200)-40;
 
 for i:=1 to n do
  write(a[i]:4);
   writeln;
 
   j:=1;k:=0;
   for i:=1 to n do
   begin
    if (a[i]>0) and (a[i] mod 2<>0 ) and (a[i]>50) then
    begin
     b[j]:=a[i];
     inc(j);
     inc(k);
     end;
   end;
    writeln;
 
    if k=0 then
     write('НЕТУ  ')
      else
       writeln('Количество = ',k) ;
       writeln;
        for i:=1 to j-1 do
          write(b[i]:4);
 
 
readkey;
 
END.

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

12.12.2013, 22:02

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

В массиве целых чисел подсчитать количество чётных положительных чисел, меньших 40
В массиве целых чисел подсчитать количество чётных положительных чисел, меньших 40. Вывести...

Сформировать массив с 6-ти целых чисел. Подсчитать количество чисел больших 0. Найти самое большое число
1). Сформировать массив с 6-ти целых чисел. Подсчитать количество чисел больших 0. Найти самое...

Найти количество простых чисел в массиве из 10 положительных целых чисел
Задание: Описать функцию IsPrime(K) логического типа, возвращающую true, если целый параметр К...

Подсчитать количество чисел больших среднего арифметического положительных элементов массива
В одномерном массиве А подсчитать количество чисел больших среднего арифметического положительных...

	12.12.2013, 22:02

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

12.12.2013, 22:02

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

В массиве из 10 чисел подсчитать количество элементов больших трех
В массиве из 10 чисел подсчитать количество элементов больших трех Решить через Мссив если будет...

В массиве из 10 чисел подсчитать количество элементов больших n и меньших m.
В массиве из 10 чисел подсчитать количество элементов, больших n и меньших m (параметры m и n...

Дан файл целых чисел. Подсчитать сумму чисел, больших числа N
program p1; var fx:text; s,k,n:real; c:integer; begin...

Подсчитать количество отрицательных и положительных чисел в двумерный массиве
Составить программу, в которой сформировать двумерный целочисленный массив случайных чисел А, и...

Наверх