составить программу которая заполнит массив размерностью 10 элементов, случайными числами в диапазоне от 1 до 100 и выведет на экран только двузначные числа пожалуйста помогите
restIess:
Ну это сделано для нашего удобства, чтоб мы понимали, где вывели исходный массив, а где элементы двузначные
Ответы
Ответ дал:
1
Ответ:
var a:^array[1..100] of integer;
n,i,j:integer;
begin
new(a);
repeat
write('Введите размер массива от 1 до 100 n=');
readln(n);
until n in [1..100];
for i:=1 to n do
begin
a^[i]:=1+random(100);
write(a^[i]:4);
end
end. язык программирование Pascal
Объяснение:
Ответ дал:
1
const n=10;
var a:array[1..n] of integer;
i:byte;
begin
randomize;
writeln('Двузначные числа: ');
for i:=1 to 10 do
begin
a[i]:= 1 + random(100);
if (a[i] > 9) and (a[i] < 100) then
writeln(a[i]);
end;
writeln('Полный массив: ');
for i := 1 to 10 do
writeln(a[i]);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад