по восприятия - визуальная, по форме представления - графическая (текстовая), по назначению - массовая, по значению - ценная, достоверная, актуальная, по истинности - истинная.
Объяснение:
Визуальная - воспринимается органами зрения; графическая - в виде изображения, графиков; массовая - содержит тривиальные сведения и понятия понятны большей части социума; ценная - полезность информации, достоверная - получена без искажения (с надёжного источника), актуальная - ценная в данный момент; истинная - имеет верные понятия, соответствует правде.
var soldier: array[1..5000]of integer; n, i, j, k, max, t, d, imax, a, c: integer;
begin if auto then begin n := random(5000); for i := 1 to n do soldier[i] := random(5000); end else begin readln(n); for i := 1 to n do read(soldier[i]); end;
{сортирововчка} for i := 1 to n - 1 do begin imax := i; for j := i + 1 to n do if soldier[j] > soldier[imax] then imax := j; max := soldier[i]; soldier[i] := soldier[imax]; soldier[imax] := max; end;
max := 0; for i := 1 to n - 1 do for j := i + 1 to n do begin a := soldier[j]; d := soldier[j] - soldier[i]; c := 2; for k := j + 1 to n do if soldier[k] = a + d then begin a := soldier[k]; c := c + 1; end; if c > max then max := c; end;
Изучение схемы метро:
по восприятия - визуальная, по форме представления - графическая (текстовая), по назначению - массовая, по значению - ценная, достоверная, актуальная, по истинности - истинная.
Объяснение:
Визуальная - воспринимается органами зрения; графическая - в виде изображения, графиков; массовая - содержит тривиальные сведения и понятия понятны большей части социума; ценная - полезность информации, достоверная - получена без искажения (с надёжного источника), актуальная - ценная в данный момент; истинная - имеет верные понятия, соответствует правде.
auto = false;
var
soldier: array[1..5000]of integer;
n, i, j, k, max, t, d, imax, a, c: integer;
begin
if auto then begin
n := random(5000);
for i := 1 to n do
soldier[i] := random(5000);
end
else begin
readln(n);
for i := 1 to n do
read(soldier[i]);
end;
{сортирововчка}
for i := 1 to n - 1 do
begin
imax := i;
for j := i + 1 to n do
if soldier[j] > soldier[imax] then
imax := j;
max := soldier[i];
soldier[i] := soldier[imax];
soldier[imax] := max;
end;
max := 0;
for i := 1 to n - 1 do
for j := i + 1 to n do
begin
a := soldier[j];
d := soldier[j] - soldier[i];
c := 2;
for k := j + 1 to n do
if soldier[k] = a + d then begin
a := soldier[k];
c := c + 1;
end;
if c > max then max := c;
end;
writeln(max);
end.