Даны две квадратные матрицы А и В размером 3х3. Требуется найти С=А х В. Составить программу нахождения числа строк матрицы А(N,
Даны две квадратные матрицы А и В размером 3х3. Требуется найти С=А х В. Составить программу нахождения числа строк матрицы А(N,N), сумма элементов у которых отрицательна. pascal abc
1)var a:array[1..3,1..3] of integer; b:array[1..3,1..3] of integer; c:array[1..3,1..3] of integer; i,j:integer; begin; writeln('A array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; a[i,j]:=random(10)-10; write(a[i,j]:4); end; end; writeln; writeln('B array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; b[i,j]:=random(-10,10); write(b[i,j]:4); end; end; writeln; writeln('C array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; c[i,j]:=a[i,j]*b[i,j]; write(c[i,j]:4); end; end; <span>end. 2)</span>var a:array[1..1000,1..1000] of integer; i,j,k,n,u:integer; begin; randomize; readln(n); writeln('A array:'); for i:=1 to n do begin; writeln; for j:=1 to n do begin; a[i,j]:=random(10)-10; write(a[i,j]:4); end; end; for i:=1 to n do begin; for j:=1 to n do u+=a[i,j]; if u<0 then inc(k); u:=0; end; writeln; write('Result:',k); <span>end.</span>
Алгоритм называется линейным<span>, </span>если<span>. он составлен так, что его выполнение предполагает многократное повторение одних и тех же действий</span>
var a:array [1..3000] of integer; b,c,i,n:integer; Begin WriteLn('введіть кількість чисел'); ReadLn( n ); a[1]:=1; a[2]:=1; b:=0; WriteLn('Список ',n,' чисел Фібоначі'); WriteLn(a[1]); WriteLn(a[2]); for i:= 3 to n do begin a[i]:=a[i-2]+a[i-1]; b:=b+a[i]; WriteLn(a[i]); end; b:=b+a[1]+a[2]; WriteLn('Сума усіх чисел Фібоначі становить ',b); end.