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

заполнить массив случайными числами с промежутка 1-100 и определить в массиве Е [1..30] , кол-во чисел с одинаковыми цифрами

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

    var a:array[1..100]of integer;

    i,e:integer;

    begin

    for i:=1 to 100 do a[i]:=random(90)+10; {при значениях 0-9 смысл проверки теряется}

    for i:=1 to 100 do write(a[i],' ');

     

    for i:=1 to 100 do if a[i] mod 10=a[i] div 10 then inc(e);

    writeln;

    writeln(e);

    end.

     

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