На паскале нужно сделать. с клавиатуры вводится n элементов массива целых чисел вывести количество чисел которые в диапозоне от 10 до 30

Program p1; uses crt; var a: array [1..10] of integer; i,k: integer; begin clrscr; writeln ('введите элементы массива'); for i: =1 to 10 do read (a[i]); k: =0; for i: =1 to 10 do begin if (a[i]> 10) and (a[i]< 30) then k: =k+1; end; writeln ('количество чисел в диапазоне (10; 30) =',k); readln; readkey; end.

Var       a: array[1..100] of integer;       i, n: integer;       sum, product, harmonic: real; begin       n : = 50;             writeln('данные массива: ');       for i : = 1 to n do       begin               a[i] : = random(60);               write(a[i], ' ');       end;       writeln();             {подсчет суммы и произведения и агригатов}       sum : = 0;       product : = 1;       for i : = 1 to n do               if i mod 2 = 0 then                       sum : = sum + a[i]               else                       product : = product * a[i];       writeln('sum = ', sum);       writeln('product = ', product); end.

Using system; public class matrixswap { public static void main() { int s = 4; double[,] d = new double[s,s]; int imax, jmax, imin, jmin, i, j; double max, min, t; for (i = 0; i < s; i++) { for (j = 0; j < s; j++) { console.write("d[{0}][{1}] = ", i, j); d[i,j] = convert.todouble(console.; } } imax = 0; jmax = 0; max = d[imax,jmax]; imin = 0; jmin = 0; min = d[imin,jmin]; for (i = 0; i < s; i++) { for (j = 0; j < s; j++) { if (d[i,j] > max) { max = d[i,j]; imax = i; jmax = j; } if (d[i,j] < min) { min = d[i,j]; imin = i; jmin = j; } } } t = d[imin,jmin]; d[imin,jmin] = d[imax,jmax]; d[imax,jmax] = t; console.writeline(); for (i = 0; i < s; i++) { for (j = 0; j < s; j++) { console.write("{0} ", d[i,j]); } console.writeline(); } } }