1)
var
a:array [1..15] of integer;
s,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(80)-20;
write (a[i],' ');
s:=s+a[i];
end;
writeln;
writeln ('Summa = ',s);
readln;
end.
2)
var
a:array [1..15] of integer;
i:integer;
p:longint;
begin
randomize;
p:=1;
for i:=1 to 15 do begin
a[i]:=random(26)+5;
write (a[i],' ');
p:=p*a[i];
end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end.
3)
var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(90)-50;
write (a[i],' ');
if a[i]<0 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end.
4)
var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(37)+1;
write (a[i],' ');
if odd(a[i])=true then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end.
5)
var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(39)+2;
write (a[i],' ');
if a[i]<20 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end.
6)
var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(60)+5;
write (a[i],' ');
if a[i] mod 7 = 0 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end.
7)
var
a:array [1..15] of integer;
s,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(8)+3;
write (a[i],' ');
if a[i]=8 then s:=s+a[i]
end;
writeln;
writeln ('Summa = ',s);
readln;
end.
8)
var
a:array [1..15] of integer;
s,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(69)+5;
write (a[i],' ');
if a[i] mod 11 = 0 then s:=s+a[i];
end;
writeln;
writeln ('Summa = ',s);
readln;
end.
9)
var
a:array [1..15] of integer;
s,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(69)+5;
write (a[i],' ');
if odd(a[i])=false then s:=s+a[i];
end;
writeln;
writeln ('Summa = ',s);
readln;
end.
10)
var
a:array [1..15] of integer;
i:integer;
p:longint;
begin
randomize;
p:=1;
for i:=1 to 15 do begin
a[i]:=random(69)+5;
write (a[i],' ');
if a[i] mod 3 = 0 then p:=p*a[i];
end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end.
14)
var
a:array [1..15] of integer;
i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(26)+5;
write (a[i],' ');
end;
writeln;
writeln ('');
for i:=1 to 15 do
if odd(a[i])=false then write (a[i],' ');
readln;
end.
13)
var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(85)+21;
write (a[i],' ');
end;
writeln;
writeln('');
for i:=1 to 15 do
if a[i] mod 21 = 0 then begin
write (a[i],' ');
k:=k+1;
end;
if k=0 then writeln ('Elementov net');
readln;
end.
12)
var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(37)+1;
write (a[i],' ');
end;
writeln;
writeln('');
for i:=1 to 15 do
if a[i]>15 then write (a[i],' ');
readln;
end.
11)
var
a:array [1..15] of integer;
i:integer;
p:longint;
begin
randomize;
p:=1;
for i:=1 to 15 do begin
a[i]:=random(15)+1;
write (a[i],' ');
if (a[i]>2) and (a[i]<5) then p:=p*a[i];
end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end.
Рано или поздно практически каждый пользователь компьютера в независимости от его опытности сталкивается с командной строкой. Обычно начинающим пользователям советуют выполнить какую-то команду в командной строке, но что это такое и где находится, они не понимают. Приводить скучные и малопонятные технические определения мы не будем, поскольку проку от этого мало особенно для новичков в компьютере, а постараемся в общих чертах передать суть.
Командная строка является программной оболочкой позволяющей в текстовом виде вводить компьютеру различные команды, в том числе MS-DOS. Ведь когда то давно привычного всем графического интерфейса в операционных системах не было. Все делалось в командной строке и именно благодаря появлению графического интерфейса в виде окон, Windows завоевала огромную популярность во всем мире.
Однако командная строка никуда не исчезла, хотя огромное количество пользователей даже не подозревает о ее существовании. Возникает вопрос, а зачем она вообще сейчас нужна. Дело в том, что некоторые вещи можно быстрее выполнить в командной строке, а некоторые настройки в принципе отсутствуют в графическом интерфейсе пользователя. Так же следует иметь в виду, что до сих пор существуют утилиты, не имеющие графического интерфейса, а иногда он оказывается недоступен, например из-за сбоя.
Объяснение: