Var
z: array[0..9]of real = (-6, 98, -45, 9, 4, -7, -12, 32, 1, 3);
sum: real;
i: integer;
begin
for i := 0 to 9 do
if(z[i] < 0) then sum := sum + z[i];
write(sum);
end.
Помню, на сайте была табличка :)
Возможно, это, вы имели ввиду?)
Ты наверное имеешь в виду Нельзя писать оскорбления, мат, посылать плохие фотографии и так далее?
А) Вкус - язык
Б) Обоняние(нос), зрение (глаза)
В) зрение (глаза)
Г) Осязание - пальцы
Д) Обоняние (нюх) зрение(глаза) слух(уши)
Е) зрение (глаза) осязание, слух