Опубликовано 6 лет назад по предмету Информатика от AppoliFox

Помогите пожалуйста(желательно с пояснением) 1. Запишите на языке Паскаль массив С, в котором 7 элементов, заданных оператором присваивания. Вывод в столбик. 2. Создать одномерный массив C из 12 целых элементов. Числа вводит пользователь с клавиатуры. Вывести на экран массив в виде строки чисел. 3. Напишите программу, реализующую заполнение случайными числами 15 элементов массива S и вывод их на экран. Элементы массива – это целые числа из промежутка [0;40]. 4. Напишите программу, реализующую заполнение 25 числами массива B по формуле и вывод их на экран в строку по формату: целая часть – 9 позиций, дробная – 3 позиции. Формула: элемент массива равен сумме двух предыдущих элементов, деленной на номер текущего элемента, т.е. третий элемент равен (первому + второму)/3(индекс третьего) и т.д. Значения первого и второго элемента: B[1]:=3; B[2]:=6;

Ответ

Ответ дан Alex24241

1. vara: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 doWriteln(a[i]);end.2. varc:array[1..12] of integer;i:Integer;begin //заполнение массиваfor i:=1 to 12 dobeginWriteln('Введите ',i,' элемент массива');readln(c[i]);end;//вывод массиваWriteln('Массив');for i:=1 to 12 doWrite(c[i],' ');end.3.vars:array[1..15] of integer;i:Integer;begin //заполнение массиваfor i:=1 to 15 dos[i]:=random(40);//вывод массиваWriteln('Массив');for i:=1 to 15 doWrite(s[i],' ');end.4.varb:array[1..25] of Real;i:Integer;begin //заполнение массиваb[1]:=3;b[2]:=6;for i:=3 to 25 dob[i]:=(b[i-1]+b[i-2])/i;//вывод массиваWriteln('Массив');for i:=1 to 25 doWrite(b[i]:9:3);end.