//Pascal var A: array[1..255] of integer; i, n: byte; sum: integer; begin randomize; write('Ввелите n: '); readln(n); for i := 1 to n do begin A[i] := random(21)-10; if A[i] > 0 then sum := sum + A[i]; write(A[i], ' '); end; writeln; writeln('Сумма положительных элементов = ', sum); readln; end.
По вертикали: 1. В переводе с греческого название этого вида спорта означает «Хожу на цыпочках, лезу вверх» . (Акробатика) 3. Изобретатель снаряда для этого вида спорта - американец Ф. Рагалло. Аппарат напоминает парус или греческую букву «дельта». (Дельтапланеризм) 5. Спортивная игра с мячом, напоминающая русскую лапту. (Бейсбол) 6. Современное зимнее двоеборье. (Биатлон) По горизонтали: 2. Командная спортивная игра проводится на поле размером 61 х 30 м. Площадка ограждена бортиками высотой 100 - 122 см. (Хоккей) 4. От слова, которое в переводе с итальянского означает «удар» , родилось название спортивного снаряда. (Батут) 5. Это скоростной спуск. Скорость спуска достигает более 100 км. Соревнуются только мужчины. (Бобслей) 7. Спортивная игра с мячом двух команд по шесть человек в каждой. Соревнования состоят из трёх или пяти партий. (Волейбол) 8. Одно из толкований названия этого вида спорта - «пустая рука» . (Каратэ)
У меня очень много любимых хобби. Но больше всего я люблю рисовать. Когда я рисую, я не только получаю радость от нарисованного, но ещё и тренируюсь и каждая моя последующая картинка выходит всё лучше и лучше! Некоторые мои друзья считают, что я лучшая художница из класса, но мне кажется, что каждый рисует хорошо для себя. Мне нравится рисовать в реалистичном и минималистичном стиле. Каждый раз у меня новые идеи. Правда, все их выполнить сложно. Но я стараюсь максимально и надеюсь, что когда-нибудь нарисую очень красивую картину и мне будет чем гордиться.
var
A: array[1..255] of integer;
i, n: byte;
sum: integer;
begin
randomize;
write('Ввелите n: '); readln(n);
for i := 1 to n do
begin
A[i] := random(21)-10;
if A[i] > 0 then sum := sum + A[i];
write(A[i], ' ');
end;
writeln;
writeln('Сумма положительных элементов = ', sum);
readln;
end.