Лабораторная работа № 6 тема: массивы (одномерные) цель работы: освоение приемов объявления, обращения и использования массивов при решении . типовые алгоритмы обработки одномерных массивов рассмотрим некоторые типовые алгоритмы обработки массивов. положим, что в декларативной части программы описаны следующие переменные: одномерные массивы а и в, переменные целого типа n, i и j и переменные типа элементов массива. 1. суммирование элементов массива реализация: s: =0; for i: =1 to n do s: =s+a[i]; writeln('сумма элементов= ', s); скинь мне то что вводиnь в паcкаль

Const          n=5; var              s,i: integer;           a: array[1..n] of integer; begin          a[1]: =1;           a[2]: =2;           a[3]: =3;           a[4]: =4;           a[5]: =5;                 s: =0;           for i: =1 to n do                      begin                                         s: =s+a[i];                             writeln('сумма элементов = ', s); {если тут, то вывод всех чисел на экран }                      end;                       {если сюда вставить writeln('сумма элементов = ', s); то тебе покажут тока ответ}  end.

Var i, k, n, j, z, x: integer; b, c, d: array[1..10000] of integer; a, e: array[1..10000] of string; m: string; begin readln(n); for i: =1 to n do readln(a[i]); readln(b[i]); readln(c[i]); for i: =1 to n do for j: =1 to n do if b[i]< b[j] then begin m: =a[i]; a[i]: =a[j]; a[j]: =m; z: =b[i]; b[i]: =b[j]; b[j]: =z; x: =c[i]; c[i]: =c[j]; c[j]: =x; end; for i: =1 to n do writeln(a[i],' ',b[i],' ',c[i]);   {это сортировка по тиражу} for i: =1 to n do begin e[i]: =copy(a[i], 1, 2); {тут расчет на то, что название начинается с заглавной буквы алфавита} val(e[i], d[i]); end; for i: =1 to n do for j: =1 to n do if d[i]< d[j] then begin m: =a[i]; a[i]: =a[j]; a[j]: =m; z: =b[i]; b[i]: =b[j]; b[j]: =z; x: =c[i]; c[i]: =c[j]; c[j]: =x; end; for i: =1 to n do writeln(a[i],' ',b[i],' ',c[i]); {сортировка по тиражу} readln; end.

Если вводить футболистов с клавиатуры и их не больше, например, 25 человек, то программа может быть такая: program futbol; var fio: array [1..25] of string;         gol: array [1..25] of integer;         i,j: integer;         f: string; begin     writeln ('введите фамилии игроков, забивших голы');     writeln ('окончание ввода - пустая строка');     j: =0; repeat       readln(f)     newfio: =true;     for i: = 1 to j do begin         if fio[i]=f then begin               gol[i]=gol[i]+1;                 newfio: =not newfio;               end;         if newfio then begin             j: =j+1;             fio[j]: =f;     end; while not f=''; for i: = 1 to j do begin   if gol[i]> 2 then writeln fio[i]; end; end.