2) USES CRT; VAR A:array[0..200] of integer; i,max,s:integer; BEGIN CLRSCR; Randomize; Writeln('Дан массив:'); for i:=0 to 200 do begin A[i]:=-100+random(150); Write(A[i],' '); end;
s:=0; max:=A[0];
for i:=0 to 200 do begin if A[i] > max then max:=A[i]; if A[i]>=0 then s:=s+1; end;
Writeln; Writeln('Максимальный элемент массива = ', max); Writeln('Кол-во положительных элементов = ',s); READLN; END.
Я думаю,в пользовательском интерфейс компьютера будущего,будет управление голосовыми командами,а так же зрительными командами и движением рук.Не будут нужны старомодные мышки,клавиатуры и прочее.Что бы что-то перелистывать,искать и так далее,нужны будут только:руки,глаза и речь.Для доступа в систему возможно использование отпечатков пальцев или сетчатки.Будут сильные уровни защиты,информация не сможет утечь.Так же возможно изобретение новых вирусов.Например вирус который блокируют движение руками или голосовое управление.Так же будет придумано новые антивирусное ПО,которые будет удалять эти вирусы.
P.S-Исправь грамматические ошибки если,я не силен в русском языке.Смысл понятен,если что-то надо-добавь.
USES CRT;
VAR A:array[0..200] of integer;
i,max,s:integer;
BEGIN
CLRSCR;
Randomize;
Writeln('Дан массив:');
for i:=0 to 200 do
begin
A[i]:=-100+random(150);
Write(A[i],' ');
end;
s:=0;
max:=A[0];
for i:=0 to 200 do
begin
if A[i] > max then max:=A[i];
if A[i]>=0 then s:=s+1;
end;
Writeln;
Writeln('Максимальный элемент массива = ', max);
Writeln('Кол-во положительных элементов = ',s);
READLN;
END.