Pascal 1)дана матрица. вывести на экран все четные строки, то есть с четными номерами. 2)заполнить матрицу так, чтобы сумма элементов в каждой строке была равна номеру этой строки.

Const z = 50; var a: array[1..z,1..z] of integer; n,i,j: integer; beginwrite('введите размер массива '); readln(n); for i: =1 to n dobeginfor j: =1 to n dobegina[i,j]: = random(100)-50; write(a[i,j]: 4); end; writeln; end; writeln; writeln; for i: =1 to n dobeginfor j: =1 to n dobeginif i mod 2 =0 thenwrite(a[i,j]: 4); end; writeln; end;

  program z;

uses crt;

var x,y,z: real;

begin

    clrscr;

    write('введите х: ');

    readln(x);

    write('введите y: ');

    readln(y);

    if (x< 0)   and (x> y) then z: =x;

    if (x< 0)    and (x< y) then z: =y;          

 

    if (x> =0) then z: =(x+y)/2;

    writeln('z=',z);

    readkey;

 

end. 

 

 

 

 

45% травм- бытовые, то есть полученные дома, например, ребенок опрокинул на себя кастрюлю с горячей водой ( ожог) или сунул пальцы в розетку ( удар электротоком) 36% травм- уличные, то есть полученные вне дома, на улице, например, ребенок упал с горки ( ушиб или перелом) или залез на дерево, упал и ударился головой ( сотрясение мозга или черепно- мозговая травма) 1%- школьная, например бежал и врезался в дверь со стеклом ( порезы) или на уроке физкультуры повредил ногу ( например ушиб ) 4%- дорожная, это уже в основном дтп, переходил дорогу в неположенном месте, сбила машина ( переломы, черепно-мозговые травмы и т.д.)