uses crt; var a: array [1..15] of integer; i: integer; begin writeln('Дан массив'); for i:=1 to 15 do begin a[i]:=random(41)-20; write(a[i]:5); end; writeln; writeln('Преобразованный массив'); for i:=1 to 15 do if a[i] mod 2=0 then write(a[i]/2:5:1) else write(a[i]*3:5); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
