Program zamena; const n=10; var a: array [1..n] of integer; i,k: integer; begin randomize; for i: =1 to n do a [i] : = random(10); write ('введенный массив'); for i: =1 to n do writeln (a[i]: 4); readln (a[i]); for i: =1 to n do begin k: = a[i] mod 2; if a[i] / 2 = k then a[i] : = a[i] * 2 else a[i] : = sqr(a[i]); end; write ('новый массив'); for i: =1 to n do writeln (a[i]: 4); readln (a[i]); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Получите развернутую форму чисел 221122, 01 , 296 3 8