Задать вопрос Регистрация
Помочь другим

  • ДАН МАССИВ ИЗ 7 ЭЛЕМЕНТОВ. ЗАМЕНИТЬ ВСЕ ЭЛЕМЕНТЫ МАССИВА ЦИФРОЙ ДВА, КРОМЕ МАКСИМАЛЬНОГО ЭЛЕМЕНТА.

Ответы 1

  • Задание 5.program untitled;const N=3;var max,i,num:integer;    m:array [1..N] of integer;begin max:=-1000; for i:=1 to N do  readln(m[i]); for i:=1 to N do begin  if ((m[i]>m[i+1]) and (m[i]>max)) then begin    max:=m[i];    num:=i;   end;  end; for i:=1 to N do begin     if i<>num then      m[i]:=2; end;  for i:=1 to N do begin   write(m[i]);   write(',');  end;end. 

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years