Var b,c:integer;
a: array [1..20] of integer; {объявляем массив}
begin
randomize; {говорим что будем использовать в теле программы рандомные числа}
for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }
a[b]:=random(1000); {присваиваем элементам массива рандомные значения}
write(a[b]); {выводим эти значения}
writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты }
end;
<span>end.
надеюсь что так можно? ;D
</span>

0 0

4 года назад

Определить сколько ударов прозвучит в течении суток если часы бьют каждый час столько раз сколько показывает часовая стрелка. На

Вовкаа [17]

200
Правильный ответ, да.

0 0

4 года назад

Решите задачу в паскале авс, пожалуйста, срочнооооо!!!!! Найти сумму цифр трёхзначного числа введённого с клавиатуры

Виктор Щ [28]

Program n1;
var a: integer;
begin
readln(a);
write((a mod 10)+(a div 100)+(a mod 100 div 10));
end.

0 0

4 года назад

Прочитать ещё 2 ответа