Переменная а, в, с, х:целый;
Начало
ввод(а);
с:=0;
для в:=1 до а делать
Начало
ввод(х);
если х>0 тогда начало
с:=с+х;
конец;
вывод("Количество слагаемых: ", в, " Сумма: ", с);
конец.
Система NTFS
_____________
См. в прикрепленном файле
Вообще есть специальная программа HotPotatos - легко создаются кроссворды. Нужно только ввести вопросы, а программа сама составит кроссворд
Var i:integer; n,k:real;
begin
n:=10;k:=10;
for i:=1 to 6 do
begin
n:=1.1*n;
k:=k+n;
end;
writeln(k:5:2);
end.
F,x переменные
begin начало счета
writeln ввод х с новой троки
readln задать значение х с новой строки
Программа решает уравнение
Выводит значение f
readln задерка экрана
конец программы.
Данная программа считает уравнение F;=-2*x*x+4*x-1 .4 с значениями которые задает пользователь.