Цитата:
№1.Дана действительная квадратная матрица . Получить две квадратные матрицы ; , для которых.
|
Вы хотите сказать, что это задание? Нет, давайте все целиком.
Цитата:
№2.Даны целые числа a1, a2, … ,a45. Получить число отрицательных членов последовательности a1, a2, … ,a35 и число нулевых членов всей последовательности a1, a2, … ,a45.
|
Код:
uses crt;
const n=45;
var a:array [1..n] of integer;
kneg,knil,i:byte;
begin clrscr;
writeln ('Type ',n,' numbers: ');
for i:=1 to n do begin
read(a[i]);
if i<=35 then
if a[i]<0 then
inc(kneg,1);
if a[i]=0 then
inc(knil,1);
end;
writeln;
writeln ('Amount of negative numbers: ',kneg,'; Amount of nils: ',knil);
readkey;
end.