1. Заполнить массив из 10 элементов случайными числами. Увеличить каждый его элемент в 2 раза.
Исходный массив: 0 4 -3 2 -7 0 5 -6 3 1
Конечный массив: 0 8 -6 4 -14 0 10 -12 6 2
Ответы
Ответ дал:
0
uses crt;
const n=10;
var a:array [1..n] of integer;
b:array [1..n] of real;
i:integer;
begin clrscr;
for і:=1 to n do readln(a[i]);
for i:=1 to n do b[i]:=2*(a[i]);
for i:=1 to n do write(a[i]:11);
writeln;
for i:=1 to n do write(b[i]:11:1);
end.
Это в Pascal
const n=10;
var a:array [1..n] of integer;
b:array [1..n] of real;
i:integer;
begin clrscr;
for і:=1 to n do readln(a[i]);
for i:=1 to n do b[i]:=2*(a[i]);
for i:=1 to n do write(a[i]:11);
writeln;
for i:=1 to n do write(b[i]:11:1);
end.
Это в Pascal
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
7 лет назад