Uses crt; const n=12; var a:array[1..n] of integer; i,k,max:integer; begin randomize; max:=-5; for i:=1 to n do begin a[i]:=random(20)-5; writeln(a[i]); if a[i]>max then begin k:=i; max:=a[i]; end; end; writeln; writeln(max); writeln(k); end.
3 Информация - совокупность сведений, знаний о чем-либо; сообщение - совокупность знаков , отображающих информацию. 4 Кодирование - зашифровка информации (перевод языка на азбуку Морзе),декодирование - расшифровка( расшифровка сообщения с азбуки Морзе,к примеру, на русский язык). 5 Кол-во информации предотвращает неопределенность.Неопределенность информации характеризуется энтропией, хаосом. 6 Актуализация информации - совокупность действий по обновлению, расширению, восстановлению информации для эффективности ее использования. 7 Актуальность, полнота, доступность,понятность (т.е. понятна для восприятия)
n = 12;
var
a: array[1..n] of integer;
i, max: integer;
begin
max := 1;
for i := 1 to n do begin
a[i] := random(20) - 5;
write(a[i]:3);
if a[i] > a[max] then
max := i;
end;
writeln;
writeln('a[', max, '] = ', a[max]);
end.