Program array1;uses crt;var kol,i,N:integer; a:array [1..100] of integer;beginrandomize;write ('Vvedite kolichestvo elementov');read (N);kol:=0;for i:=1 to N dobegina[i]=random (100);if a[i]>0 then kol:=kol+1;end;write ('Kolichestvo elementov =,' kol);end.
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016 begin var n:=ReadInteger('n='); if n<0 then Writeln(n,'! не определено: n<0') else if n=0 then Writeln('0!=1') else begin var p:BigInteger:=1; for var i:=2 to n do p*=i; Writeln(n,'!=',p) end end.
1.Найти фотографии своего класса. 2.Создать первый слайд:Вставить фотографию всего класса,написать кто сделал презентацию и сделать надпись "Наш класс". 3.Сделать второй слайд: написать о своём классном руководителе,вставить его фото и сделать заголовок. 4.Сделать четвертый слайд:написать о себе,вставить своё фото и сделать заголовок. 5.Создавать слайдов столько сколько у тебя одноклассников,делать их так же как про себя.Спрашивать у них про них. 6.Предпоследний слайд сделать с пожеланиями своим одноклассникам. 7.На последнем слайде можно поставить красивую картинку или смайл и написать за внимание!
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Положительных элементов- ',a.Where(x->x>0).Count)
end.
Пример
n= 13
3 21 -5 46 16 -24 -13 1 -15 41 0 25 48
Положительных элементов- 8