Константой является: n=2; q=59; ф: real; п=59;

Конечно, мы постоянно используем знания полученные в школе. Это, например, элементарная прикладная математика: каждый совершает большие и маленькие покупки, распоряжается каким-то количеством денег, считает, вычисляет скидку на товар. Взрослый человек может взять кредит или затеять ремонт, и тогда уж математика на каждом шагу. Точные науки развивают логику и смекалку, которые мы можем применить и в отдыхе, и в работе. Гуманитарные уроки нам поддержать разговор или подскажут, как себя вести в какой-то ситуации, если читал или слышал о ней ранее.

1. введите N.

2. цикл for от 1 до N будем вводить 'элементы массива x[i]/

3. в цыкле от 1 до N бедем выводить на экран массив writeln(x[i]) и считаем сумму. если в программе выполнять, то это будет выглядеть так

write('введите N'); readln(n);

for i:=1 to n do begin write('введите ',i,' элемент массива');

                                readln (x[i]);

                       end;

sum:=0;

for i:=1 t0 n do begin

                           write(' ',x[i]);

                           sum:=sum+x[i];

                       end;

write('а сумма всех элементов = ',sum);