profile
Опубликовано 6 лет назад по предмету Информатика от yuhctsu

в одномерном целочисл. массииве числа, у которых первая цифра больше последней паскаль авс

  1. Ответ
    Ответ дан ingr

    программа генерирует массив случайной длины от 10 до ста элементов с значениями в диапазоне 10..9999999

    затем выводит все элементы у которых первая цифра больше второй.

    var

       n : integer;

       d : array of integer;

       

    begin

       n := random(10, 100);

       d := new integer[n];

       d := arrRandom(n, 10, 9999999);

       for var i := 0 to n-1 do begin

           var a1, a2 : integer;

           a1 := d[i];

           repeat

               a1 := a1 div 10;

           until a1 < 10;

           a2 := d[i] mod 10;

           if a1 > a2 then writeln(d[i]);

       end;

    end.

    1. Ответ
      Ответ дан ingr
      проще не всегда лучше. И в комментах не говорилось сколько чисел нужно ввести или как то по другому ограничить ввод. Что бы получить правильный ответ нужно задать правильный вопрос :)
    2. Ответ
      Ответ дан FunSociety
      и то верно))
    3. Ответ
      Ответ дан yuhctsu
      Вот как выглядит задание :
      ПаскальАВС
      В массиве от 1..1000, числа указываются вручную нужно:
      1)перевернуть массив
      2) найти в нем числа, у которых первая цифра больше последней и вывести на экран
      П.с. Желательно с комментарием чтобы мне было понятно)
    4. Ответ
      Ответ дан yuhctsu
      Извините за запутанность
    5. Ответ
      Ответ дан ingr
      сейчас переделаю программу и отвечу в новом задании
  2. Ответ
    Ответ дан MrMiner1

    Program n_1;

    var a:array [1..1000] of integer; i, buf:integer;

    begin

       for i:=1 to 1000 do begin

           read(a[i]);

           buf:=a[i];

           while buf>9 do buf:=buf div 10;

           if buf>a[i] mod 10 then write(a[i], ' ');

       end;

    end.

Самые новые вопросы