Var N1:array[1..10] of integer;
N2:array[1..15] of integer;
R1:array[1..10] of integer;
R2:array[1..15] of integer;
min1, min2, max1, max2, i:integer;
R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
if R1[i]<min1 then
begin
min1:=R1[i];
R1min:=i;
end else
begin
if R1[i]>max1 then
begin
max1:=R1[i];
R1max:=i;
end;
end;
for i:=1 to 15 do
if R2[i]<min2 then
begin
min2:=R2[i];
R2min:=i;
end else
begin
if R2[i]>max2 then
begin
max2:=R2[i];
R2max:=i;
end;
end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
end.
"Из двух множеств, связанных отношением «является разновидностью», одно является подмножеством другого.Например, множество попугаев является подмножеством множества птиц."
2) Число - целое число.
Значение информации для человека.
Определние "информация" для человека становится все шире и шире, с каждым днем все полезнее, и одновременно сложней в усвоении и образовании.
Информация в жизни человека играет важную роль в повседневной жизни, начиная с работы и быта, заканчивая интернет технологиями. Информация помогает человеку сохранить , создать и следовать истории. Благодаря инфоормации человечество имеет возможность передавать и получать знания в изначальной точности. Цифры, буквы, изображения , формулы и даже звуки , все это частицы нашей информации, которую получив, возможно обработать и модернизировать, так и получается, модернизировав информацию мы не стоим на месте, наука и технологии идут вперед.
Информация, помогает человеку изучить и применить свои знания, взяв к примеру одну ситуацию, один человек собирается написать письмо другому человеку, естественно в наше время проще написать и отправить письмо воспользовавшись электронными технологиями, сделать это намного проще и быстрее, пускай и не через компьютер, но через телефон становится все проще и проще. И поэтому для того чтобы попросить человека на расстоянии "купить на обратном пути хлеба" , достаточно всего лишь набрать нужную информацию в сообщении телефона и отправить ее человеку.
P.s.
Что то типа того, может примеры не особо понравятся, можешь отредактировать, вставить что то свое , или добавить.
Program abc
var a,b,c,d,e,max:real;
Begin
Writeln ('Введите пять целых которые нужно сровнять между собой');
readln (a,b,c,d,e);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if d>max then max:=d;
if e>max then max:=e;
Writeln ('Наибольшее число ',max);
End.
