Помогите пожааалуйста,вообще нереально сделать(задачи зависят друг от друга) 1.заполнить массив из 100 элементов случайными числами.вывести на
10-11 класс
|
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива
for I:=1 to 100 do
begin
a[i]:= random (50) ;
if I < 11 then s:= s + a [I ] ;
if I > 19 and I < 51 then write ( a [I] , ' ');
if I = 51 then writeln ( s/10);
if I < 11 and (a [ I ] mod 2 = 0 ) then writeln ( a [I];
end;
Другие вопросы из категории
два модуля. Первый должен содержать ряд необходимых тригонометрических функций,
не реализованных в Паскале (например, Tg(x), Ctg(x)
и др.) Второй модуль должен содержать функцию для возведения в степень
минимальное основание может иметь система счисления, если в ней записано число A11?
Читайте также
возрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки» .
есть ли в нем одинаковые соседние элементы.
Пример:
Исходный массив:
4 0 1 2 0 1 3 1 1 0
Заранее огромное спасибо!!!!
случайными числами в интервале от 0 до 4 и вывести номера всех элементов, равных X.
Пример:
Исходный массив:
4 0 1 2 0 1 3 4 1 0
Что ищем? 0
A[2], A[5], A[10]