Мадана это медведь на юге
Var p1, p2, p3, p4, p5:integer;
uses crt;
begin
writeln('Введите цену 1 товара:');
readln(p1);
writeln('Введите цену 2 товара:');
readln(p2);
writeln('Введите цену 3 товара:');
readln(p3);
writeln('Введите цену 4 товара:');
readln(p4);
writeln('Введите цену 5 товара:');
readln(p5);
writeln('Цена вашей покупки составляет ',p1+p2+p3+p4+p5);
end.
P.S. Надеюсь на Лучший ответ.
Разные программы, данные...
Const n=10;
var
a: array[1..n] of integer;
sa: real;
k: integer;
i: byte;
begin
sa:=0; k:=0;
for i:=1 to n do begin;
read (a[i]);
if a[i] mod 4 =0 then begin
sa:=sa+a[i];
k:=k+1;
end;
end;
sa:=sa/k;
writeln;
writeln ('Среднее значение элементов, кратных четырем, = ',sa);
end.
----------------------------------
Пример:
4 6 8 10 12 16 14 18 20 22
Среднее значение элементов, кратных четырем, = 12