Если в 3-ем столбце матрицы есть хотя бы один элемент равный 0, вычислить произведение положительных элементов матрицы, в противном случае выдать сообщение о том, что в третьем столбце матрицы нулевых элементов нет.

ответ:var

   n, i: word;

   sum: real;

 

begin

 

   write ('n = '); readln (n);

 

   sum := 0;

 

   for i := 1 to n do

       sum := sum + 1/(i*i);

 

   writeln (sum:6:5);

 

readln

end.

gene  16/06/2017

a(a-1)(a-2)(a-3)...(a-n)

var  

   a,n,i: integer;

   mult: longint;

begin

   write('Введите a: ');

   readln(a);

   write('Введите n: ');

   readln(n);

   mult := a;

   for i:=1 to n do

       mult := mult * (a - i);

   writeln(mult);

end.

1/a + 1/(a+1)+...+1/(a+n)

var  

   a,n,i: integer;

   sum: real;

begin

   write('Введите a: ');

   readln(a);

   write('Введите n: ');

   readln(n);

   sum := 0;

   for i:=0 to n do

       sum := sum + 1/(a + i);

   writeln(sum:5:2);

end.

Объяснение:

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(20,2,5);Write('Оценки за диктант: ');a.Println;
Writeln('Двоек: ', a.Where(t-> t = 2).Count);
Writeln('Троек: ', a.Where(t-> t = 3).Count);
Writeln('Четверок: ', a.Where(t-> t = 4).Count);
Writeln('Пятерок: ', a.Where(t-> t = 5).Count);
Writeln('Средний за диктант: ', a.Average:0:2);
end.

Пример:
Оценки за диктант: 4 3 2 3 5 3 3 2 5 2 3 5 4 3 3 4 2 2 3 2
Двоек: 6
Троек: 8
Четверок: 3
Пятерок: 3
Средний за диктант: 3.15