Заполнить массив случайными числами из промежутка (1-100) и ...
Заполнить массив случайными числами из промежутка (1-100) и определить в массиве Н[1..30]кол-во чисел запись которых заканчивается единицей
Есть ответ
17.12.2022
274
Ответ
Program Program1;VarH:array [1..30] of integer;i,k:integer;beginrandomize;writeln('Массив:');for i:=1 to 30 dobeginH[i]:=random(100)+1;writeln('H[',i,']=',H[i]);end;k:=0;for i:=1 to 30 dobeginif H[i]=1 then inc(k) elseif (H[i]>10) and (H[i] mod 10 = 1) then inc(k);end;writeln('Чисел заканчивающихся единицей: ',k);end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
