1) Дана матрица А(10,10) заполненная датчиком случайных чисел. Отыскать сумму значений

Полная программка, 1-двумерным массивом, 2-циклом

На языке Паскаль

1)
var
   m:array [1..10,1..10] of integer;
   i,j:integer;
   s:longint;
begin
   Randomize;
   for i:=1 to 10 do
      for j:=1 to 10 do
         m[i,j]:=random(100);
   s:=0;
   for i:=1 to 10 do
      for j:=1 to 10 do
         s:=s+m[i,j];
   println(s)
end.
2)
var
   y:longint;
   i,n:integer;
begin
   writeln('Введите значение n');
   readln(n);
   y:=0;
   i:=1;
   while ilt;=n do begin
      y:=y+i;
      i:=i+2
   end;
   writeln('Y=',y)
end.

Обе работают, проверено.