блок схема,в jpeg формате (картинка ) сделана в word 2007.у вас ошибка составление программы (var max,x,e: real; ) [хотя вы запрашиваете x,y]
картинка загружаться не хочет =),на сайт.
зеркало
Ответ дал: Гость
var
a: array[1..100] of integer;
i,s,r: integer;
begin
for i: =1 to 100 do read(a[i]);
for i: =1 to 100 do
begin
if a[i]< 0 then r: =r+a[i] else s: =s+a[i];
end;
writeln('сумма всех положительных чисел= ',s);
writeln('сумма всех отрицательных чисел= ',r);
readln
end.
посчитает максимум 100 чисел.
Ответ дал: Гость
отнимем от первого второе варенье минус керосин = 150 если керосин в два раза легче, то варенье в два раза тяжелее 2х - х = 150 х=150 - это все керосина значит банка весит 200 г
Популярные вопросы