Презентация по информатике на тему Одномерные массивы

ОДНОМЕРНЫЕ МАССИВЫ Цель – познакомиться с одномерными массивами,– научиться задавать (описывать), заполнять разными способами,– уметь обрабатывать.– подружиться с массивами! Массив – совокупность однотипных данных, хранящихся в последовательных ячейкахи имеющих общее имя. Массивы бывают Одномерные А А[2]Двумерные А А[2,3] Описание массива A а[1] a[2] a[3] a[4] a[5] a[6] a[7] a:array[1..1000] of integer; 3 -6 0 -2 8 0 5 Заполнение массива 1) с клавиатурыreadln(a[i]); 2) случайным образом (автоматически)a[i]:=random(21)-10; -10 0 10 Задача Задать массив, заполнить его случайными числами из интервала [-10;10] и найти - количество положительных, отрицательных и нулевых элементов; - суммы положительных и отрицательных элементов. program zadacha;var n, i, kp, ko, kn, sp, so: integer; a:array[1..1000] of integer;begin kp:=0; ko:=0; kn:=0; sp:=0; so:=0; write('Введите количество элементов n='); readln(n); for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:5); end; writeln;  for i:=1 to n do begin if a[i]>0 then begin kp:=kp+1; sp:=sp+a[i]; end; if a[i]<0 then begin ko:=ko+1; so:=so+a[i]; end; if a[i]=0 then kn:=kn+1; end; writeln ('Количество положительных элементов =', kp);writeln ('Количество отрицательных элементов =', ko);writeln ('Количество нулей =', kn);writeln ('Сумма положительных элементов =', sp);writeln ('Сумма отрицательных элементов =', so);end. for i:=1 to n dobegin a[i]:=random(21)-10; - удалить write (a[i]:5); write (' a[ ', i , ' ]= '); - вставить readln (a[i]);end;writeln; Что еще можно было найти (вычислить) ? среднее арифметическое,минимальный элемент,максимальный элемент и т. д. выполнить?сортировку,перестановку,- замену и т. д. В заключение Я узнал(а) …Я умею …