Program Program1;
var
i,j,k:integer;
A: array [1..6,1..4] of integer;
begin
randomize;
for i:=1 to 6 do
for j:=1 to 4 do
a[i,j]:=random(100);
k:=0;
for i:=1 to 6 do
for j:=1 to 4 do
if a[i,j] mod 3 = 0 then inc(k);
writeln('Кратны трем ',k,' элем.');
end.
1.((0+1+1+1)*2*2*2+(1))*2=50
2.за 1 т.к. на одну чашу ложим одну монету на другую ложим 2 что перевесит то и настоящая
3.на том же месте т.к. он возвращается на место каждые 4 раза выполнив цикл а 16 и 4 сокращаются
4.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
const
КолСтрок=3;
КолСтолбцов=5;
begin
var Массив: array [1..КолСтрок,1..КолСтолбцов] of integer;
var СуммыПоСтрокам: array[1..КолСтолбцов] of integer;
Writeln('Введите элементы массива (',КолСтрок,',',
КолСтолбцов,') построчно:');
for var строка:=1 to КолСтрок do
for var столбец:=1 to КолСтолбцов do begin
Read(Массив[строка,столбец]);
СуммыПоСтрокам[строка]+=Массив[строка,столбец]
end;
Writeln('Суммы построчно:');
for var строка:=1 to КолСтрок do Print(СуммыПоСтрокам[строка])
end.
<u><em>Тестовое решение</em></u>
Введите элементы массива (3,5) построчно:
7 -5 13 19 -11
8 23 -15 -6 0
12 -6 -9 0 12
Суммы построчно:
23 10 9
Я так понял тебе нужно на паскале, тогда держи:
program dataScience;var x,y,z, sum: integer;beginsum:=0;read(x, y, z); if x=>0 then//проверка на положительность x if y=>0 then//проверка на положительность y if z=>0 then//проверка на положительность z sum:=(x+y+z)/3;//счёт среднего writeln(sum);//вывод среднего арефметического end.
<em>TYPE</em>
<em> TPoint = Record x, y: Real; End;</em>
<em>VAR</em>
<em> a, b, c, d: TPoint;</em>
<em />
<em> Function Pl(a, b, c: TPoint): Real;</em>
<em> Var v1, v2: TPoint;</em>
<em> Begin</em>
<em> v1.x := a.x - b.x; v1.y := a.y - b.y;</em>
<em> v2.x := a.x - c.x; v2.y := a.y - c.y;</em>
<em />
<em> Pl := Abs(v1.x * v2.y - v1.y * v2.x) / 2;</em>
<em> End;</em>
<em />
<em>BEGIN</em>
<em> Read(a.x, a.y, b.x, b.y);</em>
<em> Read(c.x, c.y, d.x, d.y);</em>
<em />
<em> Write(Pl(a, b, c)+Pl(a, c, d));</em>
<em>END.</em>
