Очень нужно на завтра уже сдать!Создайте таблицу - вопрос №12263736 от fghjik 28.09.2021 08:15

Question

Информатика: Очень нужно на завтра уже сдать!Создайте таблицу в MS EXEL, в которой в пятнадцати ячейках столбца А и пятнадцати ячейках столбца В записаны произвольные (положительные) числа. В столбцах С, D, E, F, G, H, I записаны формулы, производящие математические действия над этими числами: в столбце С – число А в 5 степени; в столбце D – корень восьмой степени числа В; в столбце E – квадрат разности чисел А и В; в столбце F – нахождение остатка при делении В на А; в столбце G – квадрат суммы чисел С и F;

fghjik · Answer

Программа, которая использует два массива

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.

Обе программы работают!