Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Подсчитайте число и сумму положительных, число и произведение отрицательных элементов массива https://www.cyberforum.ru/ pascalabc/ thread619067.html
2.1. Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N).
Pascal ABC Дан номер года. Определить соответствующий ему номер столетия
2.Дан номер некоторого года(целое положительное число). Определить соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год. Помогите пожалуйста решить!!!!!!!!!!
Pascal ABC Даны числа а1,а2,…,а10. Определить их сумму https://www.cyberforum.ru/ pascalabc/ thread618707.html
2. Даны числа а1,а2,…,а10 .Определить их сумму.
Pascal ABC Известны оценки по физике каждого из 20 учеников класса. Определить среднюю оценку 3. Известны оценки по физике каждою из 20 учеников класса. Определить среднюю оценку. https://www.cyberforum.ru/ pascalabc/ thread618706.html
Pascal ABC Известны оценки учеников двух классов. Определить среднюю оценку в каждом классе
4. Известны оценки по физике каждого ученика двух классов. Определить среднюю оценку в каждом клас¬се. Количество учащихся и каждом классе одинаковое.
Pascal ABC Найти минимальный элемент второго столбца указанного массива https://www.cyberforum.ru/ pascalabc/ thread618689.html
Люди добрые, помогите, пожалуйста, решить две задачи по двумерным массивам. Вторая: Дан двумерный массив, содержащий 4 строки и 3 столбца. Элементами массива являются целые числа. Найти минимальный элемент второго столбца указанного массива. Увеличить каждый элемент исходного массива на полученное значение. Результат получить в другом массиве. Ну а тут тоже негусто: нашла только наименьший...
Pascal ABC Не используя Паскаль определить что выдаст данная задача? https://www.cyberforum.ru/ pascalabc/ thread618595.html
Begin s:=0.0; n:=1; while n<=50 do begin x:=3.0*n+2.0; x:=1.0/x; s:=s+x; Inc(n); end;
Не используя Паскаль определить что выдаст данная задача? Pascal ABC
Помогите определить и как объяснить это учителю? Begin n:=30; a:=1; b;=1; for j:= 3 to n do begin b:=a+b;
Pascal ABC Имя пользователя и решение уравнений https://www.cyberforum.ru/ pascalabc/ thread618587.html
var s: string; a, b, c, x1, x2: real; begin WriteLn ('Оу, чувак, хело!'); Write ('Как зовут тебя? '); ReadLn (s); Write ('введи значение А,', s); Read (a); Write ('Клёво, теперь Б! '); Read (b);
Pascal ABC Имеется список нуждающихся в улучшении жилищных условий. Рассчитать, какое количество лет в среднем необходимо ожидать получения квартиры имеется список нуждающихся в улучшении жилищных условий.Каждая запись этого списка содержит фамилию,имя, отчество и дату постановки на учет.Список упорядочен по дате постановки на учет.Известно число квартир выделяемых по данному списку в течении года. рассчитать какое количество лет в среднем необходимо ожидать получения квартиры, и вывести весь список с указанием ожидаемого года получения... https://www.cyberforum.ru/ pascalabc/ thread618580.html
Pascal ABC Дан текст из строчных латинских букв. Напечатать все буквы, входящие в текст не менее двух раз
дан текст из строчных латинских букв, за которым следует точка. Напечатать все буквы, входящие в текст не менее двух раз.
Pascal ABC Заменить все нулевые элементы массива на среднее арифметическое всех элементов массива https://www.cyberforum.ru/ pascalabc/ thread618461.html
Дан массив С (N). Заменить все нулевые элементы массива на среднее арифметическое всех элементов массива
610 / 135 / 132
Регистрация: 15.04.2010
Сообщений: 554
29.03.2011, 15:56 0

Определить количество элементов, которые меньше заданного значения - Pascal ABC - Ответ 3237473

29.03.2011, 15:56. Показов 5657. Ответов 4
Метки (Все метки)

Ответ

2.10
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program second;
uses crt;
var x,c,n,i:integer;
a:array[1..100] of integer;
begin;
clrscr;
randomize;
write('Введите количество элементов массива');
readln(n);
write('Введите х');
read(x);
for i:= 1 to n do
begin
A[i]:=random(100)-random(100);
end;
c:=0;
for i:= 1 to n do
begin
if a[i]<x then
begin
c:=c+1;
end;
end;
writeln('Наш ответ:',c);
readkey;
end.


Вернуться к обсуждению:
Определить количество элементов, которые меньше заданного значения Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.03.2011, 15:56
Готовые ответы и решения:

Определить количество чисел, которые меньше заданного числа N
1 Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N. 2 Вычислить ...

Определить количество чисел, которые меньше заданного числа N
№1 Вычислить значения функции y=An/n для n, изменяющегося от 1 до 15, с шагом 1, A=2. №2...

Определить количество чисел, которые меньше заданного числа N
№1. Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N. program...

Определить количество чисел, которые меньше заданного числа N
Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N.

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

В массиве Х(N) найти количество элементов, которые меньше значения среднего арифметического
2. В массиве Х(N) найти количество элементов, которые меньше значения среднего арифметического...

Определить количество элементов последовательности, которые больше 10 и меньше 500
Дана последовательность чисел 1!;2!;3!;4!;...n!,где n задаётся вводом. Определить количество...

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

Определить количество элементов массива, значения которых меньше число K.
N=12 Ввести число К Определить количество элементов массива, значения которых меньше K . Вывести...

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