Выбери два признака виртуального общения интернет-зависимых людей: Верных ответов: 2 Увлечение различными - id1442586120220225 от антон778 25.02.2022 11:11

Question

Информатика: Выбери два признака виртуального общения интернет-зависимых людей: Верных ответов: 2 Увлечение различными компьютерными играми Большие объемы переписки, постоянное участие в чатах Обсуждение компьютерной тематики с людьми, не имеющими достаточные знания в данной области Бесцельное и механическое посещение сайтов ​

антон778 · Accepted Answer

uses crt;
var a, b, c, i, n, j :integer;
s :array[1..10000] of integer;
begin
  clrscr;
  writeln('Введите размер массива');
  read(n);
  for i:=1 to n do
  begin
  s[i]:=random(46)-15;
  writeln ('s[', i,']=', s[i]);
  end;
  a:=s[1];for i:=1 to n do
  if s[i]>a then
  begin
  a:=s[i];
b:=i;
  end;
  writeln ('Наибольший элемент s[', b, ']=',a);
end.

P.S. Надеюсь на благодарность и лучший ответ.

MOGZ ответил