writeln ('Количество нечетных элементов массива = ',k);
readln;
end.
Задание 2 (двухмерный массив)
uses crt; const a:array [1..5,1..5] of integer = ((100,101,102,103,104), (200,201,202,203,204), (300,301,302,303,304), (400,401,402,403,403), (500,501,502,503,504)); var i,j:integer; begin clrscr; for i:=1 to 5 do begin for j:=1 to 5 do if j mod 2 = 0 then begin textcolor (12); write (a[i,j]:4); textcolor (7); end else begin textcolor (9); write (a[i,j]:4); textcolor (7); end; writeln; end; readln; end.
Задание 1 (одномерный массив)
uses crt; var a:array [1..7] of integer; i,sum:integer; begin clrscr; for i:=1 to 7 do begin write ('A[',i,'] = ');readln(a[i]); if a[i]>0 then sum:=sum+a[i]; end; for i:=1 to 7 do if a[i]>0 then begin textcolor (red); write (a[i]:4); end else begin textcolor (blue); write (a[i]:4); end; writeln; textcolor (darkgray); writeln ('Сумма положительных элементов = ',sum); readln; end.
Задание 4 (одномерный массив)
uses crt; var a:array [1..12] of integer; i,buf,min,max:integer; begin clrscr; randomize; a[1]:=random(14)+1; min:=1; max:=2; writeln ('Исходный массив: '); write (a[1]:4); for i:=2 to 12 do begin a[i]:=random(14)+1; write (a[i]:4); if a[i]>a[max] then max:=i else if a[i]<a[min] then min:=i; end; writeln; {смена 1-ого и последнего эл} buf:=a[1]; a[1]:=a[12]; a[12]:=buf; {смена 2-ого и мин эл} buf:=a[2]; a[2]:=a[min]; a[min]:=buf; {смена 1-ого и макс эл} buf:=a[1]; a[1]:=a[max]; a[max]:=buf; writeln ('Результирующий массив:: '); for i:=1 to 12 do write (a[i]:4); writeln; readln; end.
Задание 3 (одномерный массив)
var a,b:array [1..10] of integer; i,j:integer; s1,s2:real; begin randomize; s1:=0; s2:=0; writeln; for i:=1 to 10 do begin a[i]:=random(11)-5; b[i]:=random(19)-9; write (a[i]:4); s1:=s1+a[i]; s2:=s2+b[i]; end; writeln; for i:=1 to 10 do write (b[i]:4); writeln; s1:=s1/10; s2:=s2/10; if s1>s2 then writeln ('S1 > S2') else if s1<s2 then write ('S1 < S2') else writeln ('S1 = S2'); readln; end.
Исходное число 665675757 1)665675757:2=332837878 и в остатке 1 значит пишем 1 2)332837878:2=166418939 и в остатке 0 значит пишем 0 3)166418939:2=83209469 и в остатке 1 значит пишем 1 4)83209469:2=41604734 и в остатке 1 значит пишем 1 5)41604734:2=20802367 и в остатке 0 значит пишем 0 6)20802367:2=10401183 и в остатке 1 значит пишем 1 7)10401183:2=5200591 и в остатке 1 значит пишем 1 8)5200591:2=2600295 и в остатке 1 значит пишем 1 9)2600295:2=1300147 и в ост 1 зн пишем 1 10)1300147:2=650073 и в ост 1 зн пишем 1 11)650073:2=325036 и в ост 1 зн пишем 1 12)325036:2=162518 и в ост 0 зн пишем 0 13)162518:2=81259 и в ост 0 зн пишем 0 14)81259:2=40629 и в ост 1 зн пишем 1 15)40629:2=20314 и в ост 1 зн пишем 1 16)20314:2=10157 и в ост 0 зн пишем 0 17)10157:2=5078 и в ост 1 зн пишем 1 18)5078:2=2539 и в ост 0 зн пишем 0 19)2539:2=1269 и в ост 1 зн пишем 1 20)1269:2=634 и в ост 1 зн пишем 1 21)634:2=317 и в ост 0 зн пишем 0 22)317:2=158 и ост 1 зн пишем 1 23)158:2=79 и ост 0 зн пишем 0 24)79:2=39 и ост 1 зн пишем 1 25)39:2=19 и ост 1 зн пишем 1 26)19:2=9 и ост 1 зн пишем 1 27)9:2=4 и ост 1 зн пишем 1 28)4:2=2 и ост 0 зн пишем 0 29)2:2=1 и ост 0 зн пишем 0 30)1:2=0 и ост 1 зн пишем 1 число в двоичной системе 10110111110011010110101111001
Задание 3 (двухмерный массив)
var
a:array [1..10,1..7] of integer;
k,i,j:integer;
begin
randomize;
for i:=1 to 10 do begin
for j:=1 to 7 do begin
a[i,j]:=random(9)+1;
write (a[i,j]:4);
if a[i,j] mod 2 <> 0 then k:=k+1;
end;
writeln;
end;
writeln ('Количество нечетных элементов массива = ',k);
readln;
end.
Задание 2 (двухмерный массив)
uses crt;
const
a:array [1..5,1..5] of integer = ((100,101,102,103,104),
(200,201,202,203,204),
(300,301,302,303,304),
(400,401,402,403,403),
(500,501,502,503,504));
var
i,j:integer;
begin
clrscr;
for i:=1 to 5 do begin
for j:=1 to 5 do
if j mod 2 = 0 then begin
textcolor (12);
write (a[i,j]:4);
textcolor (7);
end else begin
textcolor (9);
write (a[i,j]:4);
textcolor (7);
end;
writeln;
end;
readln;
end.
Задание 1 (одномерный массив)
uses crt;
var
a:array [1..7] of integer;
i,sum:integer;
begin
clrscr;
for i:=1 to 7 do begin
write ('A[',i,'] = ');readln(a[i]);
if a[i]>0 then sum:=sum+a[i];
end;
for i:=1 to 7 do
if a[i]>0 then begin
textcolor (red);
write (a[i]:4);
end else begin
textcolor (blue);
write (a[i]:4);
end;
writeln;
textcolor (darkgray);
writeln ('Сумма положительных элементов = ',sum);
readln;
end.
Задание 4 (одномерный массив)
uses crt;
var
a:array [1..12] of integer;
i,buf,min,max:integer;
begin
clrscr;
randomize;
a[1]:=random(14)+1;
min:=1;
max:=2;
writeln ('Исходный массив: ');
write (a[1]:4);
for i:=2 to 12 do begin
a[i]:=random(14)+1;
write (a[i]:4);
if a[i]>a[max] then max:=i else
if a[i]<a[min] then min:=i;
end;
writeln;
{смена 1-ого и последнего эл}
buf:=a[1];
a[1]:=a[12];
a[12]:=buf;
{смена 2-ого и мин эл}
buf:=a[2];
a[2]:=a[min];
a[min]:=buf;
{смена 1-ого и макс эл}
buf:=a[1];
a[1]:=a[max];
a[max]:=buf;
writeln ('Результирующий массив:: ');
for i:=1 to 12 do write (a[i]:4);
writeln;
readln;
end.
Задание 3 (одномерный массив)
var
a,b:array [1..10] of integer;
i,j:integer;
s1,s2:real;
begin
randomize;
s1:=0;
s2:=0;
writeln;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
b[i]:=random(19)-9;
write (a[i]:4);
s1:=s1+a[i];
s2:=s2+b[i];
end;
writeln;
for i:=1 to 10 do write (b[i]:4);
writeln;
s1:=s1/10;
s2:=s2/10;
if s1>s2 then writeln ('S1 > S2') else
if s1<s2 then write ('S1 < S2') else writeln ('S1 = S2');
readln;
end.
1)665675757:2=332837878 и в остатке 1
значит пишем 1
2)332837878:2=166418939 и в остатке 0
значит пишем 0
3)166418939:2=83209469 и в остатке 1
значит пишем 1
4)83209469:2=41604734 и в остатке 1
значит пишем 1
5)41604734:2=20802367 и в остатке 0
значит пишем 0
6)20802367:2=10401183 и в остатке 1
значит пишем 1
7)10401183:2=5200591 и в остатке 1
значит пишем 1
8)5200591:2=2600295 и в остатке 1
значит пишем 1
9)2600295:2=1300147 и в ост 1
зн пишем 1
10)1300147:2=650073 и в ост 1
зн пишем 1
11)650073:2=325036 и в ост 1
зн пишем 1
12)325036:2=162518 и в ост 0
зн пишем 0
13)162518:2=81259 и в ост 0
зн пишем 0
14)81259:2=40629 и в ост 1
зн пишем 1
15)40629:2=20314 и в ост 1
зн пишем 1
16)20314:2=10157 и в ост 0
зн пишем 0
17)10157:2=5078 и в ост 1
зн пишем 1
18)5078:2=2539 и в ост 0
зн пишем 0
19)2539:2=1269 и в ост 1
зн пишем 1
20)1269:2=634 и в ост 1
зн пишем 1
21)634:2=317 и в ост 0
зн пишем 0
22)317:2=158 и ост 1
зн пишем 1
23)158:2=79 и ост 0
зн пишем 0
24)79:2=39 и ост 1
зн пишем 1
25)39:2=19 и ост 1
зн пишем 1
26)19:2=9 и ост 1
зн пишем 1
27)9:2=4 и ост 1
зн пишем 1
28)4:2=2 и ост 0
зн пишем 0
29)2:2=1 и ост 0
зн пишем 0
30)1:2=0 и ост 1
зн пишем 1
число в двоичной системе 10110111110011010110101111001