var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;
begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.
Ответ дал: Гость
нельзя, ведь текст отсканирован а не скопирован!
Ответ дал: Гость
1)
var
a,b,c: real;
begin
readln(a,b);
c: =180-a-b;
if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v: real;
begin
readln(v);
if v< 7.8 then writeln ('ракета упадет на землю');
if v=7.8 then writeln ('ракета станет спутником земли');
if (v> 7.8) and (v< =16.4) then writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then writeln ('ракета покинет пределы солнечной системы');
Популярные вопросы