Ребят помогите пожалуйста с информатикой (Паскаль)

program main;

var
a: array[1..7] of real; // объявляем массив из 7 элементов
i: integer; // переменная-счетчик для цикла

begin
// заполняем массив элементами
a[1] := 15.2;
a[2] := -16;
a[3] := 18;
a[4] := 58;
a[5] := 21;
a[6] := 17.07;
a[7] := 45;

// заменяем элементы с четными индексами на 11
for i := 2 to 7 step 2 do
begin
a[i] := 11;
end;

// выводим новый массив на экран, разделяя элементы запятой
for i := 1 to 7 do
begin
write(a[i]:0:2); // указываем формат вывода: два знака после запятой
if i < 7 then // если это не последний элемент, то выводим запятую
begin
write(', ');
end;
end;

end.
В этой программе мы объявляем массив a из 7 элементов и заполняем его данными из задания. Затем мы используем цикл for для замены элементов с четными индексами на значение 11. Наконец, мы выводим новый массив на экран, разделяя элементы запятой.

Надеюсь, эта программа поможет вам решить задачу!

a[1] = 15, a[2] = 11, a[3] = 18, a[4] = 11, a[5] = -21, a[6] = 11, a[7] = 45

Смотря, что именно не можете понять, друг мой. Массив обозначается как array [границы массива (количество элементов)]. Т.к. a[1] и т.д., то имя массива - a. А [1] (и пр. числа в квадратных скобках) - это - номера элементов массива. Т.е. a[1] - это - 1-ый элемент массива a. a[2] - 2-ой элемент и т.д. Внимание: нумерация может быть не с 1-ого элемента массива, т.е. если массив задан в границах не от 1 до n, а от 0 до n, то 1-ым будет элемент с индексом 0!

Задание только странное - смысл вводить с клавиатуры, когда он уже дан?

Ладно, напишу 2 варианта программы: 1-ый - это уже задам элементы массива, а 2-ой вариант - заполнять массив придётся вручную (т.е. программа будет запрашивать ввод).

Итак, 1-ый вариант (массив уже задан):

 Program P1; 

uses crt; 

const n=7; 

type massiv=array [1..n] of integer; //можно было обойтись без константы. Тогда вместо n было бы число 7.

var a: massiv; 

    i: integer; 

begin 

clrscr; //очистка экрана

a[1]:=15; 

a[2]:=-16; 

a[3]:=18; 

a[4]:=58; 

a[5]:=-21; 

a[6]:=17; 

a[7]:=45; 

write ('Исходный массив:'); 

for i:=1 to n do write (' ', a[i]); //вывод в строку исходного массива

writeln (' '); //переход на следующую строку 

for i:=1 to n do if i mod 2=0 then a[i]:=11; 

write ('Измененный массив:'); 

for i:=1 to n do write (' ', a[i]); 

writeln (' '); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; //системная пауза

end. 

2-ой вариант (массив вводится с клавиатуры):

 Program P1; 

uses crt; 

const n=7; 

type massiv=array [1..n] of real; 

var a: massiv; 

    i: integer; 

begin 

clrscr; 

writeln ('Введите с клавиатуры значения элементов массива (только числа). После ввода каждого элемента массива нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

for i:=1 to n do begin 

    write ('Введите ', i, '-й элемент массива: '); 

    readln (a[i]); 

    end; 

write ('Вы ввели массив:'); 

for i:=1 to n do write (' ', a[i]); 

writeln (' '); 

for i:=1 to n do if i mod 2=0 then a[i]:=11; 

write ('Измененный массив:'); 

for i:=1 to n do write (' ', a[i]); 

writeln (' '); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.