Найти среднее арифметическое всех средних чисел от а до в решение в паскале

var n,s,k,i : integer; beginwriteln ('введите кол-во чисел'); readln (n); for i: =1 to n dobeginwriteln ('введите ',i,' число'); readln (k); s: =s+k; end; writeln ('среднее арифметическое =',s/n: 5: 2); end.

#include < stdio.h> #include < stdlib.h> #include < locale.h> #include < string.h> //имя файла #define filename "file.txt" //максимально возможная длина строки (выделение памяти) #define l_str 255 int main() { setlocale(lc_all, "rus"); file *t = fopen(filename, "r"); if (t == null) {   printf("файл не найден\n"); } else {   //текущая строка   char *s = (char*) malloc(sizeof(char) * l_str);   //максимальная строка char *s_max = (char*)malloc(sizeof(char) * l_str);   //кол-во строк   int k_str = 0;   //максимальная длина строки   int l_max = 0;       while (! feof(t)) {   fgets(s, l_str, t);   //длина текущей строки   int l = strlen(s); if (l > l_max) { l_max = l;     strcpy(s_max, s);   } k_str++;   } //вывод результата: printf("строк в файле: %d\n", k_str); printf("максимальная строка, длинной %d: \n", l_max-1); puts(s_max); } fclose(t); printf("\n"); system("pause"); return 0; }

Var   i: integer;   s: integer;   a: array[0..49] of integer; begin   s : = 0;   randomize;   for i : = 0 to 49 do   begin       a[i] : = random(60) - 10;       s : = s + a[i];       write(a[i], ' ')   end;   writeln;   writeln('сумма элементов массива ', s) end. пример выполнения в среде pascalabc.net: 46 10 18 47 16 20 3 7 27 -10 10 18 19 28 0 3 21 26 32 36 1 -8 36 32 44 25 35 -1 -4 45 30 35 28 -8 45 6 20 34 0 47 7 9 34 39 47 5 29 10 47 26 сумма элементов массива 1072