помогите сделать в паскале!! Описать числовой массив на 25 элементов и заполнить его случайными целыми числами, каждое из которых лежит в пределах от 10
10-11 класс
|
до 50, распечатать содержимое элементов массива в строку.
var
i:integer;
a:array[1..25]of integer;
begin
for i:=1 to 25 do
begin
a[i]:=random(10,50);
write(a[i],' ');
end;
end.
Другие вопросы из категории
Нужно прописать в программе
Функция должна возвращать
Величину
среднего абсолютного отклонения
Отношение
среднего квадратического отклонения к среднему абсолютному отклонению
Среднее
арифметическое из средних абсолютных отклонений поддиапазонов
var
a,B,N,i:integer;
bol:boolean;
begin
i:=0;
n:=0;
bol:=true;
Writeln('Введите число B');
readln(B);
Writeln('Введите число N');
Readln(N);
Writeln('Введите ',N,' целых чисел.');
While i < n
Читайте также
(концы интервала входят тоже) и вывести на экран монитора в матричном виде! ДЕЛАЕТСЯ ВСЕ НА GWBASIC!!!
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих , сумма цифр каждого из которых делится на ?"
Входные данные. Два числа
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.
сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел. получите новый массив, каждый элемент которого равен квадрату соответствующего элемента исходного массива. в полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива. выведите на экран исходные и полученные результаты