4 а) составьте программку ,которая наполняет массив а[1..10 ] случайными целыми

4 а) составьте программу ,которая наполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 10 , потом элементы с четными индексами умножаются , а элементы с нечетными индексами утраивает.Выведите на экран начальный и приобретенный массив.

б)составьте программку ,которая наполняет массив b[1..8 ] случайными целыми числами в диапозоне от 1 до 10 , потом изменяет символ элементов с четными индексами на противоположный .Выведите на экран начальный и полученный массивы.

5) а)составьте программку ,которая наполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 10 ,и обретает количество элементов ,которые больше собственного соседа слева

б)составьте программку ,которая наполняет массив b[1..8 ] случайными целыми числами в диапозоне от 1 до 10 и обретает количество пар частей с четными значениями.

6) а)составьте программу ,которая заполняет массив а[1..20 ] случайными целыми числами в диапозоне от 1 до 10 ,и обретает среднее арифметическое частей с четными значениями и нечетными индексами.

б) составьте программу ,которая наполняет массив b[1..15 ] случайными целыми числами в диапозоне от 1 до 20 и выводит все тройки частей , упорядоченные требовательно по возрастанию.

Задать свой вопрос
1 ответ

 

program pr_a; 

var a: array[1..10] of integer;

i, x, y: integer;

begin

x:=0;

y:=0;

for i:=1 to 10 do

begin

a[i]:=random(11);

write(a[i],' ');

writeln;

end;

for i:=1 to 10 do

 

begin

if a[i] mod 2=0 then

x:=a[i]*2

else

y:=a[i]*3;

write(y,' ');

write(x,' ');

end;

end.

 

 

 

 а дальше мне лень :) 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  

 

 

 

 

 

 

 

 

 

 

 

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


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

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

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

Войти на сайт