1. const n=10; var a:array[1..n] of integer; i,max,min:integer; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(51); write(a[i]:4); end; writeln; max:=a[1]; min:=a[1]; for i:=2 to n do begin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end; writeln('max = ',max,' min = ',min); writeln(max,'-',min,' = ',max-min); end.
Пример: 23 23 46 28 38 21 46 5 19 27 max = 46 min = 5 46-5 = 41
2. const n=10; var a:array[1..n] of integer; i:integer; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; writeln('Числа >5:'); for i:=1 to n do if a[i]>5 then write(a[i]:3); end.
3. const n=10; var a:array[1..n] of integer; i:integer; p:real; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(11); write(a[i]:3); end; writeln; p:=1; for i:=1 to n do if a[i]<>0 then p:=p*a[i]; write('p = ',p); end.
Комп'ютер это сложный организм за которым нужно присматривать и следить за компонентами в особенности за кулерами,непонятно почему именно за ними сечас обьясню.кулер охлаждает важние детали такие как блок питания,процесор,видео карта которые при нагреве могут воспламенится или припой может потечь и всей системе может прийти срок или может испортится блок питания который питает систему,процессор который обрабатывает информацию,видео карту которая выводит и обрабатывает видео сигналы.но нерекомендуется пользоватся водным охлаждением или в народе их называют водянками потому-что вода может потечь на детали и к короткому замыканию! и нужно иметь антивирусную програму для защиты данных.
const n=10;
var a:array[1..n] of integer;
i,max,min:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('max = ',max,' min = ',min);
writeln(max,'-',min,' = ',max-min);
end.
Пример:
23 23 46 28 38 21 46 5 19 27
max = 46 min = 5
46-5 = 41
2.
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
writeln('Числа >5:');
for i:=1 to n do
if a[i]>5 then write(a[i]:3);
end.
Пример:
Массив A:
7 0 12 5 1 1 13 15 13 20
Числа >5:
7 12 13 15 13 20
3.
const n=10;
var a:array[1..n] of integer;
i:integer; p:real;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(11);
write(a[i]:3);
end;
writeln;
p:=1;
for i:=1 to n do
if a[i]<>0 then p:=p*a[i];
write('p = ',p);
end.
Пример:
Массив A:
5 7 1 6 0 0 4 1 5 0
p = 4200