var i,n,s,mx: integer; a: array[1..1000] of integer;
begin
randomize();
mx: =-100;
for i : = 1 to 10 do begin
a[i] : = random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 0) and (mx < a[i])then mx : = a[i];
end;
writeln('');
writeln(mx);
end.
2)
uses crt;
var i,n,s,mn1,mn2: integer; a: array[1..1000] of integer;
begin
randomize();
mn1: = 101;
mn2: = 101;
for i : = 1 to 10 do begin
a[i] : = random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 1) and (mn1 > a[i])then begin
mn2 : = mn1;
mn1 : = a[i]
end;
end;
writeln('');
writeln(mn2);
end.
golovins3
02.05.2021
Социально значимые свойства информации. человек - существо социальное, для общения с другими людьми он должен обмениваться с ними информацией, причем обмен информацией всегда производится на определенном языке — , и так далее. участники дискуссии должны владеть тем языком, на котором ведется общение, тогда информация будет понятной всем участникам обмена информацией. информация должна быть полезной, тогда дискуссия приобретает практическую ценность. бесполезная информация создает информационный шум, который затрудняет восприятие полезной информации. примерами передачи и получения бесполезной информации могут служить некоторые конференции и чаты в интернете. широко известен термин «средства массовой информации» (газеты, радио, телевидение) , которые доводят информацию до каждого члена общества. такая информация должна быть достоверной и актуальной. недостоверная информация вводит членов общества в заблуждение и может быть причиной возникновения социальных потрясений. неактуальная информация бесполезна и поэтому никто, кроме , не читает прошлогодних газет. для того чтобы человек мог правильно ориентироваться в окружающем мире, информация должна быть полной и точной. получения полной и точной информации стоит перед наукой. овладение научными знаниями в процессе обучения позволяют человеку получить полную и точную информацию о природе, обществе и технике.
1) uses crt;
var i,n,s,mx: integer; a: array[1..1000] of integer;
begin
randomize();
mx: =-100;
for i : = 1 to 10 do begin
a[i] : = random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 0) and (mx < a[i])then mx : = a[i];
end;
writeln('');
writeln(mx);
end.
2)
uses crt;
var i,n,s,mn1,mn2: integer; a: array[1..1000] of integer;
begin
randomize();
mn1: = 101;
mn2: = 101;
for i : = 1 to 10 do begin
a[i] : = random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 1) and (mn1 > a[i])then begin
mn2 : = mn1;
mn1 : = a[i]
end;
end;
writeln('');
writeln(mn2);
end.