составьте программу, которая фотрмирует массив из пятнадцати случайных целых чисел от -20 до 20

29.11.2011, 00:21. **Показов** 6455. **Ответов** 1

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

составьте программу, которая фотрмирует массив из пятнадцати случайных целых чисел от -20 до 20 и: а) чётные числа делит на два, а нечётные - умножает на три; б) отрицательные числа возводит в квадрат, а из неотрицательных извлекает квадратный корень. Последнюю я вроде решила, но она не идёт((

Добавлено через 16 минут

ну пожалуйста.....

Добавлено через 19 секунд

ну пожалуйста.....

Добавлено через 2 минуты

@Глупыш · 29.11.2011, 00:22

А)

Pascal

var a:array[1..100] of integer;
i:integer;
begin
for i:=1 to 15 do begin
a[i]:=random(41)-20;
write(a[i],' ');  end;
writeln;
for i:=1 to 15 do begin
if a[i] mod 2 =0 then a[i]:=a[i] div 2
else
a[i]:=a[i]*3;
write(a[i],' ');end;
end.

Б)

Pascal

var a:array[1..100] of real;
i:integer;
begin
for i:=1 to 15 do begin
a[i]:=random(41)-20;
write(a[i],' ');  end;
writeln;
for i:=1 to 15 do begin
if a[i]>0 then a[i]:=sqrt(a[i])
else
a[i]:=sqr(a[i]);
write(a[i]:3:2,' ');end;
end.

НАСТоящаЯ
		1
	составьте программу, которая фотрмирует массив из пятнадцати случайных целых чисел от -20 до 20 29.11.2011, 00:21. Показов 6455. Ответов 1 Метки нет (Все метки) составьте программу, которая фотрмирует массив из пятнадцати случайных целых чисел от -20 до 20 и: а) чётные числа делит на два, а нечётные - умножает на три; б) отрицательные числа возводит в квадрат, а из неотрицательных извлекает квадратный корень. Последнюю я вроде решила, но она не идёт(( Добавлено через 16 минут ну пожалуйста..... Добавлено через 19 секунд ну пожалуйста..... Добавлено через 2 минуты

	29.11.2011, 00:22

составьте программу, которая фотрмирует массив из пятнадцати случайных целых чисел от -20 до 20

Решение