Тема: «Понятие массива. Назначение. Тип. Размер. Размерность. Одномерный массив» :56:36

Массив – совокупность конечного числа данных одного типа. Каждый массив имеет имя, которое создаётся также как и имя переменной (латинские буквы и числа). Элемент массива обозначается именем массива и индексом (порядковым номером элемента в массиве). Пример A[ I ], I определяет место элемента в массиве относительно начала

Описание массива 1 способ VAR имя массива: array[n1..n2] of тип массива; Пример VAR a, b: array[1..100] of integer; описывается 2 массива состоящие из 100 целых чисел в каждом. 2 способ Type massiv=Array[ ] of integer; Var a,b,c: massiv;

Создание массива 1 способ Ввод с клавиатуры Program PR1; Uses crt; Var i,n: integer; A: array[1..100] of integer; Begin Writeln( введи размер массива n); Read(n); For i:=1 to n do begin Write(a[, i, ]=); Readln ( a[ i ] ); End; { вывод на экран массива } For i:=1 to n do Write(a[, i, ]=,a[ i ] ); End.

2 способ Описание элементов массива в разделе описания констант Program PR2; Const n=5; A: array[1..5] of integer=(4,8,12,3,14); Var I: integer; Begin for I:=1 to 5 do Write(a[, I, ]=,a[ I ] ); End.

Формула случайного числа из промежутка [a, b] Randomize; Random (b-a+1)+a;

Создать массив чисел из промежутка [1;45] Program PR3; Uses crt; Var i,n: integer; A: array[1..100] of integer; Begin Randomize; Writeln( введи размер массива n); Read(n); Writeln( исходный массив); For i:=1 to n do begin A[ i ]:= Random(45-1+1)+1; Write(a[, i, ]=,A[ i ] ); End; End.

1. Найти сумму элементов одномерного массива Program PR1; Uses crt; Type massiv=Array[1..20] of Real; Var a: massiv; i,n: integer; S: real; Begin S:=0; Writeln( введи размер массива n); Read(n); Writeln( исходный массив); For i:=1 to n do begin Write(a[, i, ]=); Readln ( a[ i ] ); End; { вывод на экран массива } For i:=1 to n do begin S:=S+a[ i ]; Write(a[, i, ]=,a[ i ] ); End; Writeln( сумма=,S:5:1); End.

For i:=1 to n do begin a[ i ] :=random(100)+1; {Количество чётных элементов } IF a[ i ] mod 2=0 Then К:=К+1; Write(a[, i, ]=,a[ i ] ); End; Writeln( K=,K); End.

P:=1; S:=0; For i:=1 to n do begin a[ i ] :=random(100)+1; {Произведение и сумма } IF i mod 2=0 Then S:=S+a[ i ] Else P:=P*a[ i ]; Write(a[, i, ]=,a[ i ] ); End; Writeln( произведение=, P,сумма=, S);

Домашнее задание стр Найти сколько двузначных чисел в массиве а(50) заданных генератором случайных чисел из промежутка (2;100),