массив из пятнадцати случайных целых чисел от -20 до 20

@Nastyisha · Регистрация: 19.10.2011

Author24 — интернет-сервис помощи студентам

Составьте программу, которая формирует массив из пятнадцати случайных целых чисел от -20 до 20 и :
а)четные числа делит на два,а нечетные- умножает на триж
б)отрицательные числа возводит в квадратб а из неотрицательных извлекает квадратный кореньж
в)увеличивает в 2 раза числа, кратные 5, а остальные уменьшает в 2 разаж
г)меняет местами значения первого и последнего элементов массива.
На экран выводятся исходные и преобразованные значения.

@bloker · 20.10.2011, 07:53

Сам учусь ну примерно так

а)

Pascal

uses crt;
var
   mas: array [1..15] of integer;
   i: Integer;
begin
   clrscr;
   randomize;
   for i:=1 to 15 do
   begin
       mas[i]:=random(41)+(-20);
       write(mas[i],' ');
       if odd(mas[i]) then mas[i]:=mas[i]*3
       else mas[i]:=mas[i] div 2;
   end;
   writeln;
   for i:=1 to 15 do write(mas[i],' ');
 
   readln;
end.

б)

Pascal

uses crt;
var
   mas: array [1..15] of real;
   i: Integer;
begin
   clrscr;
   randomize;
   for i:=1 to 15 do
   begin
       mas[i]:=random(41)+(-20);
       write(mas[i]:4:1,' ');
       if mas[i] < 0 then mas[i]:=sqr(mas[i])
       else mas[i]:=sqrt(mas[i]);
   end;
   writeln;
   for i:=1 to 15 do write(mas[i]:4:1,' ');
   readln;
end.

@Nastyisha 1 / 1 / 0 Регистрация: 19.10.2011 Сообщений: 8
		1
	массив из пятнадцати случайных целых чисел от -20 до 20 20.10.2011, 01:18. Показов 2559. Ответов 1 Метки нет (Все метки) Составьте программу, которая формирует массив из пятнадцати случайных целых чисел от -20 до 20 и : а)четные числа делит на два,а нечетные- умножает на триж б)отрицательные числа возводит в квадратб а из неотрицательных извлекает квадратный кореньж в)увеличивает в 2 раза числа, кратные 5, а остальные уменьшает в 2 разаж г)меняет местами значения первого и последнего элементов массива. На экран выводятся исходные и преобразованные значения. 0

	20.10.2011, 07:53

массив из пятнадцати случайных целых чисел от -20 до 20

Решение