Помогите пожааалуйста,вообщем нереально сделать(задачки зависят друг от друга)1.заполнить

Помогите пожааалуйста,вообще нереально сделать(задачки зависят друг от друга)

1.заполнить массив из 100 частей случайными числами.вывести на экран с 20 по 50 в строку через пробел

2.для первыз десяти частей отыскать среднее арифмитическое

3.вывести на экран только четные элементы с 1 по 10 элементы массива

4.найти сумму нечетныз значений с 20 по 50 элемент

5.найти количество частей кратныз данному числу,введёного с клавиатуры среди всез элементок линейного массива

Задать свой вопрос
1 ответ
For I:=1 to 100 do
begin
a[i]:= random (50) ;
if I lt; 11 then s:= s + a [I ] ;
if I gt; 19 and I lt; 51 then write ( a [I] , ' ');
if I = 51 then writeln ( s/10);
if I lt; 11 and (a [ I ] mod 2 = 0 ) then writeln ( a [I];

end;
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт