Составьте программу, которая формирует массив из 15 случайных чисел вдиапазоне от 15 до -15 и: 1) отрицательные числа заменяет наих модули, а неотрицательные возводит в квадрат 2) четные числа заменяет на 2, а от нечетных - от...
Составьте программу, которая формирует массив из 15 случайных чисел вдиапазоне от 15 до -15 и: 1) отрицательные числа заменяет наих модули, а неотрицательные возводит в квадрат 2) четные числа заменяет на 2, а от нечетных - отнимает 5 3) числа, кратные 6 уменьшает в 2 раза, а у остальных элементов находит целое от деления на 5 4) меняет местами значения третьего и 11 элементов На экран вывести исходный и преобразованный массив с поясняющим текстом
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:4); end;
writeln;
for i:=1 to 15 do if a[i]>=0 then a[i]:=sqr(a[i]) else a[i]:=abs(a[i]);
for i:=1 to 15 do write(a[i]:4);
end. var a:array[1..15]of integer; i:integer; begin for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end; writeln; for i:=1 to 15 do if a[i] mod 2=0 then a[i]:=2 else a[i]:=a[i]-5; for i:=1 to 15 do write(a[i]:3); end. var a:array[1..15]of integer; i:integer; begin for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end; writeln; for i:=1 to 15 do if a[i] mod 6=0 then a[i]:=a[i] div 2 else a[i]:=a[i] div 5; for i:=1 to 15 do write(a[i]:3); end. var a:array[1..15]of integer; i,k:integer; begin for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end; writeln; k:=a[3]; a[3]:=a[11]; a[11]:=k; for i:=1 to 15 do write(a[i]:3); end.
Не нашли ответ?
Похожие вопросы