Program test;
var
a:array[1..5] of integer;
i:byte;
begin
for i:=1 to 5 do
Readln(a[i]);
Write('Получившийся массив:');
for i:=1 to 5 do
Write(' ',a[i])
end.
# Python 3.X
row = [0]
ret = 0
print('Введите матрицу ниже, разделяя пробелами',
'(Enter - новая строка, для окончания ввода введите пустую строку)',
sep='\n')
while row:
ret += sum(row)
row = [float(x) for x in input().split()]
print('Сумма:', ret)
Готово :)
..............................
Var a, b: longint;
begin
write ('введите число -> ');
readln (a);
a:=a mod 10;
b:=(a*a) mod 10;
writeln ('последняя цифра квадрата числа -> ',b);
<span>end.</span>