Program summapolojitelnih; uses crt; const n=20; type x=array[1..n] of integer; var a:x; i,sum:integer; begin for i:=1 to n do a[i]:=random(100)-50; for i:=1 to n do if (a[i] > 0) then sum:=sum+a[i]; write(sum); end.
Информатика - наука об информации и автоматизации информационных процессов. Информация - это новости, новые факты, знания про объекты и явления окружающей среды. Компьютер - устройство или система выполнять заданную чётко определённую изменяемую последовательность операций. Файл - это упорядоченная совокупность данных на внешнем носителе которая имеет имя которое операционная система обрабатывает как единое целое. Текстовой редактор - это самостоятельная компьютерная программа или компонент программного комплекса. Графический редактор - это программа позволяющая создавать, просматривать, обрабатывать и редактировать цифровые изображения на компьютере.
RANDOMIZE TIMER
FOR i = 1 TO 20
n=INT(RND*21)-10
IF n>0 THEN s=s+n
NEXT i
PRINT "сумма равна"; s
END