var
a: array[1..1000] of real;
i, k, n, z: integer;
begin
writeln('введите число n: ');
readln(n);
writeln('введите число z: ');
readln(z);
writeln('введите ',n,' действительных чисел (каждое с новой строки): ');
for i : = 1 to n do
begin
readln(a[i]);
if a[i] > z then
begin
a[i] : = z;
k : = k + 1;
end;
end;
writeln('количество замен: ', k);
end.
Чес гря не понимаю, в чем заморочка... Тут же все указано. Безо всЯкого С++ в экселе мона сотворить этакий "калькулятор"))
есть постоянная 100 (гк золота)
и переменные Х и У, их вводит, я так понял, пользователь программулечки,
дальше сии переменные суммируются
и из них считают
70% - результат сообщают польщователю с пометкой "погибшие"
26% результат сообщают польщователю с пометкой "тяжело ранено"
4% результат сообщают польщователю с пометкой "Осталось в живых"
а постоянную100 делят на эти 4% от Х+У ( то есть на к-во выживших) и сообщают результат пользователю с пометкой "досталось золота каждому из них (выживших)"
затем, если надо, обнулить Х и У для следкющего года.
А результаты, если надо получить данные за два года, прибавлять к предыдущим, уже посчитанным... Ну и еще куча вариантов обработки результатов... Вдруг нужна выборка по четным годам, вдруг еще чего)))
мона поставить переменную, считающую годы с каждым вводом Х и У...
В ощем - подвинтеся, дайте простор моей фантазии!))
в Москве иди у тебя дома 4 работа