Составить алгоритм нахождения меньшего из 2 чисел (в паскале)

263

463

Посмотреть ответы 2

Ответы на вопрос:

aydana040505

Информатика

4,5(65 оценок)

Var a,b: longint; begin readln(a,b); if a

STRELOK9999

Информатика

4,7(2 оценок)

Pascal: function sum(var m: matrix; n: integer; s1,s2: num): real; var i,j: number; s: real; begin s: =0; for i: =1 to n do if i in s1 then for j: =1 to n do if j in s2 then s: =s+m[i,j]; sum: =s end; в pascalabc.net можно написать короче: function sum(var m: matrix; n: integer; s1,s2: num): real; var i,j: number; begin result: =0; foreach i in s1 do foreach j in s2 do result: =result+m[i,j] end;