Первая: program qwer; uses crt; var i, kol : integer; Begin kol := 10; for i := 10 downto 1 do begin writeln(kol,' поросят пошли купаться в море.'); writeln(kol,' поросят пошли купаться в море.'); writeln(kol,' поросят резвились на просторе.'); writeln(kol,' Один из них утоп – его сложили в гроб,'); kol := kol - 1; writeln('И вот вам результат – ',kol,' поросят…'); end; End. Вторая: program qwer; uses crt; var i, pr, n : integer; Begin readln(n); pr := 1; for i := 1 to n do pr := pr * i; write(pr); End. Третья: program qwer; uses crt; var s, i : integer; Begin s := 115; for i := 1 to 9 do writeln(i * 100,'г = ',i * 100 * s / 1000,'руб'); End. Готово!
USES CRT;
VAR A:array[1..100] of integer;
i,n,summa:integer;
BEGIN
CLRSCR;
Randomize;
{Проверяем на размер массива, чтобы не превышал 100}
Repeat
Writeln('Введите размер массива до 100');
Readln(n);
Until n<=100;
{Заполняем массив случайными числами от -50 до 100}
For i:=1 to n do
begin
A[i]:=-50+Random(100);
Write(A[i],' ');
end;
summa:=0;
{Находим отрицательные элементы массива и складываем}
For i:=1 to n do
if A[i]<0 then summa:=summa+A[i];
Writeln;
Writeln('Сумма отрицательных элементов массива = ',summa);
READLN;
END.