Сформировать одномерный массив из 15 элементов (значения элементов
задаются случайным образом). Увеличить элемент в 2 раза, если он стоит на
четном месте. Вывести на экран исходный и итоговый массивы.
Ответы
Ответ дал:
0
for index:=0 to 14 do begin
mas[index] = random(100);
write(mas[index], " ");
if index mod 2 = 0 then begin
mas[index]:=mas[index]*2;
end;
end;
writeln();
for index:=0 to 14 do
write(mas[index], " ");
mas[index] = random(100);
write(mas[index], " ");
if index mod 2 = 0 then begin
mas[index]:=mas[index]*2;
end;
end;
writeln();
for index:=0 to 14 do
write(mas[index], " ");
Ответ дал:
0
тоже самое, вроде write и rondom в abs есть, синтаксис вроде такой же в данном случае, отличия у них вроде при работе с графикой....
Ответ дал:
0
вначале допиши
Ответ дал:
0
var mas: array [0..14] of integer;
Ответ дал:
0
index: integer;
Ответ дал:
0
begin и в конец кода end;
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад