3 - PROLOG //хотя страшно представить себе, чтоб сейчас кто-то его использовал
4 - Loud speaker
5 - Interface
6 - Supercomputers
7 - Pascal
8 - American standard code for information interchange
9 (1) - Software tool
9 - Plotter
10 - Computer literacy
11 - ICTs
12 - LOGO
13 - Modulator
14 - Communication is sumply the act of transferring information from one place to another
15 - WinRAR
16 - Antivirus software
17 - Software consists of a series of related instructions, organized for a common purpose, that tells the computer what tasks to perform and how to perform them
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.
1 - CPU
2 - Technological advancement
3 - PROLOG //хотя страшно представить себе, чтоб сейчас кто-то его использовал
4 - Loud speaker
5 - Interface
6 - Supercomputers
7 - Pascal
8 - American standard code for information interchange
9 (1) - Software tool
9 - Plotter
10 - Computer literacy
11 - ICTs
12 - LOGO
13 - Modulator
14 - Communication is sumply the act of transferring information from one place to another
15 - WinRAR
16 - Antivirus software
17 - Software consists of a series of related instructions, organized for a common purpose, that tells the computer what tasks to perform and how to perform them
19 - File name and extension
20 - Two
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.
Обе программы работают!