Запросить 20 чисел проверить правда ли что среди введенных чисел все числа равны(паскаль) !

АняПоторалова АняПоторалова    1   25.06.2019 23:20    0

Ответы
оеавц оеавц  20.07.2020 23:06
Var n0,n1:integer;
    i:integer;
    flag:boolean;
begin
  writeln('Введите 20 чисел');
  readln(n0);
  flag:=true;
  for i:=2 to 20 do begin
    readln(n1);
    if n0<>n1 then flag:=false;
  end;
  if flag then writeln('Все числа равны') else writeln('Не все числа одинаковы');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика