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
Const n=10; m=5; var i,j,k:integer; A:array[1..n] of integer; B,C:array[1..m] of integer; begin writeln('Введите элкменты массива'); for i:=1 to n do readln(a[i]); j:=0; k:=0; for i:=1 to n do if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end else begin k:=k+1; C[k]:=A[i] end; writeln('Массив А'); for i:=1 to n do write(A[i],' '); writeln; writeln('Массив B'); for i:=1 to j do write(B[i],' '); writeln; writeln('Массив C'); for i:=1 to k do write(C[i],' '); writeln 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
i,j,k:integer;
A:array[1..n] of integer;
B,C:array[1..m] of integer;
begin
writeln('Введите элкменты массива');
for i:=1 to n do readln(a[i]);
j:=0; k:=0;
for i:=1 to n do
if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
else begin k:=k+1; C[k]:=A[i] end;
writeln('Массив А');
for i:=1 to n do write(A[i],' ');
writeln;
writeln('Массив B');
for i:=1 to j do write(B[i],' ');
writeln;
writeln('Массив C');
for i:=1 to k do write(C[i],' ');
writeln
end.