Ключевые слова для поиска а.с.пушкина сказка о рыбаке и рыбке

Сторуха , старик , золотая рыбка . 3 желания , море и т.д

Const n=5; // обязательно должно быть нечетным var     i,j,max,x,k: integer;     a: array[1..n,1..n]of integer; begin writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to n do     begin     a[i,j]: =random(20);     write(a[i,j]: 4);     end;   writeln;   end; max: =a[1,1]; for i: =1 to n do   begin   if a[i,i]> max then max: =a[i,i];   if a[i,n+1-i]> max then max: =a[i,n+1-i];   end; k: =n div 2+1; x: =a[k,k]; for i: =1 to n do   begin   if a[i,i]=max     then a[i,i]: =x;   if a[n+1-i,i]=max then a[n+1-i,i]: =x;   end; a[k,k]: =max; writeln('измененный массив: '); for i: =1 to n do   begin   for j: =1 to n do     write(a[i,j]: 4);   writeln   end end.

Function subprogram(a: array of real): real; begin   foreach obj: real in a do     if (obj > 0) then       result += obj; end; var   a: array of real : = (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);   b: array of real : = (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);   c: array of real : = (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3); begin   writeln('a => ', subprogram(a));   writeln('b => ', subprogram(b));   writeln('c => ', subprogram(c)); end.