Информатика | 5 - 9 классы
ПАСКАЛЬ
Даны три числа.
Найти среди них максимальное, среднее, минимальное.
Сколько элементов массива превышают среднее арифметическое значение максимального и минимального элементов?
Сколько элементов массива превышают среднее арифметическое значение максимального и минимального элементов?
) на паскале.
Найти максимальное и минимальное из двух чисел (проверить, равны ли числа)?
Найти максимальное и минимальное из двух чисел (проверить, равны ли числа).
Напишите программу которая вычисляет минимальное и максимальное число среди чисел вводимых с клавиатуры?
Напишите программу которая вычисляет минимальное и максимальное число среди чисел вводимых с клавиатуры.
Найти номер максимального и минимального из введённых с клавиатуры 10 элементов Паскаль (массивы)?
Найти номер максимального и минимального из введённых с клавиатуры 10 элементов Паскаль (массивы).
На Языке Паскаль?
На Языке Паскаль!
Даны 2 числа минимальных вывести минимальное из них.
Паскаль?
Паскаль.
Дан массив из 18 чисел.
Найти минимальный элемент массива.
Найти минимальный элемент среди отрицательных чисел и максимальный элемент среди неотрицательных?
Найти минимальный элемент среди отрицательных чисел и максимальный элемент среди неотрицательных.
Дан массив из 5 целых чисел, найти номер максимального элемента?
Дан массив из 5 целых чисел, найти номер максимального элемента.
(Паскаль).
СРОЧНО?
СРОЧНО!
На паскале надо сделать задачу : даны два ненулевых числа.
Найти их среднее арифметическое.
Формат вывода результата «Среднее арифметическое числа ___ и числа ___ равно ___».
ПАСКАЛЬДаны три числа?
ПАСКАЛЬ
Даны три числа.
Найти среди них максимальное, среднее, минимальное.
Вы открыли страницу вопроса ПАСКАЛЬДаны три числа?. Он относится к категории Информатика. Уровень сложности вопроса – для учащихся 5 - 9 классов. Удобный и простой интерфейс сайта поможет найти максимально исчерпывающие ответы по интересующей теме. Чтобы получить наиболее развернутый ответ, можно просмотреть другие, похожие вопросы в категории Информатика, воспользовавшись поисковой системой, или ознакомиться с ответами других пользователей. Для расширения границ поиска создайте новый вопрос, используя ключевые слова. Введите его в строку, нажав кнопку вверху.
Const n = 3 ;
var a : array [1.
N] of Integer ; x, q, i : Integer ; b, l, z : Real ;
begin
for i : = 1 to n do
begin
Write('a[', i, '] = ') ;
ReadLn(a[i]) ;
end ;
x : = a[1] ;
for i : = 2 to n do
if xa[i]
then q : = a[i] ;
l : = q ;
writeln(l : 3 : 3, ' - naimenshoe') ;
b : = (x + q) / 2 ;
WriteLn(b : 3 : 2, ' - serednoe') ;
readln ;
end.