Задача №1 var a:array[1..4, 1..5] of integer; i,j,k:integer; begin writeln('Заполните матрицу'); for i:=1 to 4 do for j:=1 to 5 do begin read(a[i,j]); if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j]; end; writeln('Сумма элементов кратных 3-м и > 20 = ',k); end.
Задача №2 var a:array[1..5, 1..5] of integer; i,j,k:integer; begin writeln('Заполните матрицу'); for i:=1 to 5 do for j:=1 to 5 do begin read(a[i,j]); if i=j then k:=k+a[i,j]; end; writeln('Сумма элементов главной диагонали = ',k); end.
Пусть скорость лодки в стоячей воде равна v км/ч, тогда её скорость по течению (v + 1) км/ч, против течения (v - 1) км/ч. Время, за которое она преодолеет 255 км: по течению 255/(v + 1) часов, против течения 255/(v - 1) часов. По условию времена отличаются на 2 часа, составляем уравнение: 255/(v - 1) - 255/(v + 1) = 2
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.
Время, за которое она преодолеет 255 км: по течению 255/(v + 1) часов, против течения 255/(v - 1) часов. По условию времена отличаются на 2 часа, составляем уравнение:
255/(v - 1) - 255/(v + 1) = 2
Всё это составляет математическую модель.
Решаем уравнение:
255/(v - 1) - 255/(v + 1) = 2 - домножаем на (v - 1)(v + 1) = v^2 -1
255(v + 1) - 255(v - 1) = 2(v^2 - 1)
255v + 255 - 255v + 255 = 2(v^2 - 1)
2 * 255 = 2(v^2 - 1)
v^2 - 1 = 255
v^2 = 256
v = +- 16
Отрицательный корень не удовлетворяет условию.
ответ. 16 км/ч.