*Выполнение заданий из учебника. 1. Вычисли значения выражений*. 1) round(14.141- 5.45)
5) print(round ((3.2+8.2)//4)))
2) print(round(25.14+ 15.458))
6) print((16.5//4)% 7))
3) print(int(25.14+15.4 58))
7) print((19.5//4)% 7))
4) print(85/17) 8) 3*7//2%7
НУЖНО!
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!