Склавиатуры вводится число n, а за ним n элементов массива состоящего из целых чисел.проверить, все ли элементы массива положительны. если да, то ввести фразу "да", в противном случае-"нет".

Const   c = 100; var  n, i : integer;   a     : array [1..c] of integer;   flag : boolean; begin   write('n: ');   readln(n);       if (n < 1) or (n > c) then   begin     write('ошибка, недопустимое число.');       exit;   end;     for i : = 1 to n do   begin     write('a[', i,']: = ');     readln(a[i]);   end;       flag : = false;   for i : = 1 to n do     if a[i] < 1 then       begin         flag : = true;       break;       end;     if flag then writeln('нет') else writeln('да');       readln; end.

Program massivn; uses crt; type massiv=array[0..50] of integer; var a: massiv;     n,i,k: integer; begin writeln('vvedite n'); readln(n); for i: =1 to n do begin a[i]: =random(100)-10; write(a[i]: 3); end; for i: =1 to n do if a[i]> 0 then k: =k+1; writeln; if k=n then writeln('da') else writeln('net'); end.

Вклад с капитализацией - это вид вклада, по которому начисленные проценты периодически (как правило - ежемесячно) присоединяются к основной сумме вклада (т.е. капитализируются), максимально увеличивая его доходность. Данный вид вклада интересен тем людям, которые не имеют возможности либо желания ежемесячно снимать проценты. В результате проценты начисляются не только на основную сумму вклада, но и на сумму уже начисленных и присоединенных к вкладу процентов, т.е. происходит так называемое «начисление процентов на проценты».

Вклад без капитализации выводиться в конце срока на карту.

Объяснение:

Код ниже

Объяснение:

1) В цикле заполняем массив случайными числами

2) В том же цикле суммируем положительные числа

3) randomize подключает генератор случайных чисел

program sumPositiveNumbers;

var arr: array[1..4, 1..5] of integer;

   S: integer;

   i, j: byte;

begin

  randomize;

  S := 0;

  for i := 1 to 4 do begin

      for j := 1 to 5 do begin

          arr[i,j] := Random(56) - 10;

          if arr[i,j] > 0 then S := S + arr[i,j];

      end;

   end;

   writeln(S);

end.

Важная теория:

Вообще, числа из заданного диапазона [a; b] в паскале генерируются так: Random(b - a +1) + a.

Например, для диапазона [-8; 13] будет строка Random(13 - (-8) + 1) + (-8), которая после упрощения выглядит Random(22) - 8