Помогите пожалуйста(желательно с пояснением)
1. Запишите на языке Паскаль массив С, в котором 7 элементов, заданных оператором присваивания.
Вывод в столбик.
2. Создать одномерный массив C из 12 целых элементов. Числа вводит пользователь с клавиатуры. Вывести на экран массив в виде строки чисел.
3. Напишите программу, реализующую заполнение случайными числами 15 элементов массива S и вывод их на экран. Элементы массива – это целые числа из промежутка [0;40].
4. Напишите программу, реализующую заполнение 25 числами массива B по формуле и вывод их на экран в строку по формату: целая часть – 9 позиций, дробная – 3 позиции.
Формула: элемент массива равен сумме двух предыдущих элементов, деленной на номер текущего элемента, т.е. третий элемент равен (первому + второму)/3(индекс третьего) и т.д.
Значения первого и второго элемента: B[1]:=3; B[2]:=6;
1. Запишите на языке Паскаль массив С, в котором 7 элементов, заданных оператором присваивания.
Вывод в столбик.
2. Создать одномерный массив C из 12 целых элементов. Числа вводит пользователь с клавиатуры. Вывести на экран массив в виде строки чисел.
3. Напишите программу, реализующую заполнение случайными числами 15 элементов массива S и вывод их на экран. Элементы массива – это целые числа из промежутка [0;40].
4. Напишите программу, реализующую заполнение 25 числами массива B по формуле и вывод их на экран в строку по формату: целая часть – 9 позиций, дробная – 3 позиции.
Формула: элемент массива равен сумме двух предыдущих элементов, деленной на номер текущего элемента, т.е. третий элемент равен (первому + второму)/3(индекс третьего) и т.д.
Значения первого и второго элемента: B[1]:=3; B[2]:=6;
More Questions From This User See All
Answers & Comments
a:array[1..7] of integer;
i:Integer;
begin
//заполнение массива
a[1]:=3;
a[2]:=8;
a[3]:=2;
a[4]:=0;
a[5]:=2;
a[6]:=1;
a[7]:=7;
//вывод массива
for i:=1 to 7 do
Writeln(a[i]);
end.
2. var
c:array[1..12] of integer;
i:Integer;
begin
//заполнение массива
for i:=1 to 12 do
begin
Writeln('Введите ',i,' элемент массива');
readln(c[i]);
end;
//вывод массива
Writeln('Массив');
for i:=1 to 12 do
Write(c[i],' ');
end.
3.var
s:array[1..15] of integer;
i:Integer;
begin
//заполнение массива
for i:=1 to 15 do
s[i]:=random(40);
//вывод массива
Writeln('Массив');
for i:=1 to 15 do
Write(s[i],' ');
end.
4.var
b:array[1..25] of Real;
i:Integer;
begin
//заполнение массива
b[1]:=3;
b[2]:=6;
for i:=3 to 25 do
b[i]:=(b[i-1]+b[i-2])/i;
//вывод массива
Writeln('Массив');
for i:=1 to 25 do
Write(b[i]:9:3);
end.