Всё надо делать в паскале 1)Дан массив размерностью 10. Заполните массив целыми числами с клавиатуры через пробел и выведите его на экран. 2)Дан массив действительный чисел размерность n. Заполните массив с клавиатуры используя...
Всё надо делать в паскале
1)Дан массив размерностью 10. Заполните массив целыми числами с клавиатуры через пробел и выведите его на экран.
2)Дан массив действительный чисел размерность n. Заполните массив с клавиатуры используя запрос каждого элемента массива. Вывести готовый массив на экран.
3)Заполните массив вещественными числами использую диапозон от 0 до 1 и выведите го на экран.
Гость
Ответ(ы) на вопрос:
Гость1)
const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
for i:=1 to n do
read(a[i]);
writeln;
for i:=1 to n do
write(a[i]:4);
end.
2)
var
a:array[1..1000]of real;
i,n:integer;
begin
writeln('n ?');
readln(n);
for i:=1 to n do
begin
writeln('INPUT ',i,' элемент');
readln(a[i]);
end;
writeln;
for i:=1 to n do
write(a[i]:4:2);
end.
3)
var
a:array[1..1000]of real;
i,n:integer;
begin
writeln('n ?');
readln(n);
for i:=1 to n do
begin
a[i]:=random;
write(a[i]:4:2);
end;
writeln;
end.
Не нашли ответ?
Похожие вопросы