Ответ:
program s;
var
a:array [1..50] of integer;
i,P,C: integer;
begin
for i:=1 to 7 do
begin
a[i]=random (30);
end;
for i:=1 to 7 do begin
C:=C+a[i];
Р:=P*a[i];
end;
writeln (C);
writeln (P);
end.
Объяснение:
Вообще программа вычисляла произведение всех элементов массива. Теперь вычисляет и сумму всех элементов массива.
Глаза - зрительная информация.
Уши - звуковая информация.
Нос - обонятельная информация.
Рот - вкусовая информация.
Кожа - осязательная информация
Вот, смотри. Если что непонятно - спрашивай