РЕШИТЕ, ПОЖАЛУЙСТА!!!!
ПАСКАЛЬ 11 КЛАСС
Дан массив целых чисел (n=12), заполненный случайным образом числами из промежутка [-10;60]
Вставить число k перед всеми элементами, кратными числу k (k вводить с клавиатуры)
Ответы
Ответ дал:
0
var i,n,k:integer;
a:array[1..12] of integer;
begin
write('Write k: '); readln(k);
for i:=1 to 12 do
begin
a[i]:=Random(70)-10;
write(a[i]:5);
end;
writeln;
for i:=1 to 12 do
If a[i] mod k=0
then write(k:3,a[i])
else write(a[i]:5);
readln
end.
a:array[1..12] of integer;
begin
write('Write k: '); readln(k);
for i:=1 to 12 do
begin
a[i]:=Random(70)-10;
write(a[i]:5);
end;
writeln;
for i:=1 to 12 do
If a[i] mod k=0
then write(k:3,a[i])
else write(a[i]:5);
readln
end.
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад
9 лет назад
10 лет назад