Напишите программу для подсчета суммы всех положительных и суммы всех отрицательных случайных целых чисел из диапазона от –100 до 100. количество случайных чисел вводиться пользователем.
Var a:array[1..100] of integer;b,c,d:integer;beginc:=0;d:=0;for b:=1 to 100 dobegina[b]:=random(41)-20;writeln('a[',b,']= ',a[b]);if a[b]>0 then c:=c+1;if a[b]<0 then d:=d+1;end;writeln('Количество положительных значений равняется ',c);writeln('Количество отрицательных значений равняется ',d);end. ?
Mein Interessenkreis ist sehr breit.Ich habe Interessen an Kunst,Sport,Fremdsprachen,Wandern und Musik.Ich habe auch Hobby.Mein Hobby ist Fotografieren.Meine Eltern unterstützen mich und schenkten mir eine moderne Fotokamera.Ich nehme sie immer mit.Besonders gern fotografiere ich meine Freunde.Ich habe schon viele Fotos.Sie kann man auch im Internet finden. Ich verbringe auch viel Zeit mit meinen Freunden.Nach der Schule gehen wir zusammen in die Bibliothek.Manchmal machen wir auch gemeinsam unsere Hausaufgaben.Am Wochenende unternehmen wir auch viel.Wir können auf die Eisbahn oder ins Kino gehen.Wir sind große Theaterfreunde und ab und zu besuchen unser Theater.Oft gehen wir im Park spazieren.Danach gehen wir ins Cafe.Wir langweiligen uns nie.
?