Открой и все.Найди свой учебник и перепиши
Var a:array[1..10]of real;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10,100)/10;
write(a[i]:6);
end;
writeln();
for i:=1 to 10 do
write(sqr(a[i]):6);
<span>end.</span>
Язык C++. Решения смотри во вложениях.
Var i: Integer;
begin
write('Число: ');
readLn(i);
i := i mod 10;
writeLn('Цифра квадрата = ',
sqr(i) mod 10);
<span>end. </span>