программа авс

Ответ от Бурлаков[эксперт]
Program lab_4; - название программы может и отсутствовать var - область объявления переменных i:integer; - переменная i объявлена как целочисленная l,p,z:array [1..5] of real; - задаем массив из 5 элементов вещественного типа x,y:array[1..7] of real; - аналогично как выше только из 7 элементов b,a,s,m,G:real; - объявили переменные вещественного типа begin - начало самой программы write ('Введите b='); - выводим на экран информативное сообщение readln(b); - вводим переменную write ('Введите a='); readln(a); writeln ('Введите массив x: '); for i:=1 to 7 do readln (x); - задаем цикл для ввода массива writeln ( 'Введите массив L:'); for i:=1 to 7 do y:=x-a*b; s:=0; for i:=1 to 7 do s:=s+y; - в переменную s подсчитывается сумма массива игрек for i:=1 to 5 do readln (l); - вводим еще один массив for i:=1 to 5 do z:=l-a; дальше аналогично m:=0; for i:=1 to 5 do m:=m+z; begin G:= s/m; writeln ( 'G=' , G:9:3); end; for i:=1 to 5 do p:=l*G; writeln ( 'Элементы массива P'); begin for i:=1 to 5 do writeln ( 'p[',i,']=' , p:6:2) end; end.