:дан массив из 10 элементов, генерированных случайным образом(промежуток от -40 до 60 вывести все элементы массива, оканчивающиеся на 5 и делящиеся на 15. , надо!

program massiv; var a: array[1..10] of integer; i: integer; beginrandomize; for i: =1 to 10 do begina[i]: =random(100)-40; if ((a[i] mod 10)=5)and((a[i] mod 15)=0)then writeln(a[i]) else writeln('òàêèõ ýëåìåíòîâ íåò'); end; end.

 

 

 

 

 

 

 

 

 

ответ:

program n64568360;  

var a: array[1..10, 1..10] of shortint;  

    n, i, j: byte;  

    s: shortint;  

begin  

  randomize;  

  n : = random(8) + 3;  

  writeln('заданная матрица, порядкa ',n,': ');  

  for i : = 1 to n do  

  begin  

    for j : = 1 to n do  

    begin  

      a[ i, j ] : = random(21) - 10;  

      write(a[ i, j ]: 4)  

    end;  

    writeln  

  end;  

  s : = 0;  

  for i : = 1 to n do  

    s : = s + a[ i, i ];  

  writeln('сумма элементов главной диагонали: ',s);  

  readln  

end.

объяснение:

pascalabc.net

function rootcount(a,b,c: real): integer;

begin

  var d : = b * b - 4 * a * c;

  if d > 0 then

    result : = 2

  else if d = 0 then

    result : = 1

  else

    result : = 0

end;

// тест

begin

  var (a, b, c) : = (3, 4.5, -1.2);

  var k : = rootcount(a, b, c);

  if k = 0 then

    println('нет действительных корней')

  else

    println('количество действительноых корней равно',k)

end.