заполнить массив случайными числами с промежутка 1-100 и ...

Question

заполнить массив случайными числами с промежутка 1-100 и ...

Дмитрий

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

Есть ответ

17.12.2022

293

Ответ

Answer 1 · 17.12.2022

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.

заполнить массив случайными числами с промежутка 1-100 и ...

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

Ответ

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.

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.