Массив состоит из 15 случайных элементов.получить массив,в котором элементы 1-ого массива имеют противоположный знак.В полученном массиве удвойте элементы,которые меньше -50
Ответы
Ответ дал:
0
var a: array[1..15] of Integer;
i: Integer;
Begin for i := 1 to 15 do a[i] := random(100)-random(100);
writeln(a);
for i := 1 to 15 do begin
a[i] := 0-a[i];
if a[i]<-50 then a[i] := a[i]*2;
end;
writeln(a);
End.
i: Integer;
Begin for i := 1 to 15 do a[i] := random(100)-random(100);
writeln(a);
for i := 1 to 15 do begin
a[i] := 0-a[i];
if a[i]<-50 then a[i] := a[i]*2;
end;
writeln(a);
End.
Ответ дал:
0
Program programma;
uses crt;
var i: integer;
a:array [1..15] of integer;
begin clrscr;
randomize;
for i:=1 to 15 do
a[i]:=random(200)-100;
writeln('Массив:');
for i:=1 to 15 do
write(a[i]:5);
for i:=1 to 15 do
begin
a[i]:=-a[i];
if (a[i]<-50) then a[i]:=a[i]*2;
end;
writeln;
writeln;
writeln('Новый массив:');
for i:=1 to 15 do
write(a[i]:5);
READLN;
end.
uses crt;
var i: integer;
a:array [1..15] of integer;
begin clrscr;
randomize;
for i:=1 to 15 do
a[i]:=random(200)-100;
writeln('Массив:');
for i:=1 to 15 do
write(a[i]:5);
for i:=1 to 15 do
begin
a[i]:=-a[i];
if (a[i]<-50) then a[i]:=a[i]*2;
end;
writeln;
writeln;
writeln('Новый массив:');
for i:=1 to 15 do
write(a[i]:5);
READLN;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад