Примеры заполнения элементов массива (на уроке фрагменты программ разбирали)

Ввод данных (элементов массива) операцией присваивания:

{ Задача. В зоопарке живут 3 удава. Известна длина каждого удава в сантиметрах (500,400, 600). Какая длина получится у трех удавов вытянутых в линию?}

var dlina:array[1..3] of integer;

summa: integer;

begin

dlina[1]:=500;

dlina[2]:=400;

dlina[3]:=600;

{В этот момент в трех ячейках памяти уже находятся числа и с ними можно выполнять арифметические действия}

summa:=dlina[1]+dlina[2]+dlina[3];

writeln('длина удавов=',summa);

readln;

end.

Ввод данных (элементов массива)с клавиатуры:

{ Задача. Предположим, что длины удавов заранее

неизвестны и будем их вводить с клавиатуры}

var dlina:array[1..3] of integer;

summa: integer;

begin

Readln(dlina[1],dlina[2],dlina[3]);

summa:=dlina[1]+dlina[2]+dlina[3];

writeln('длина удавов=',summa);

readln;

end.

{ Задача про удавов в предположении, что их

не 3, а 1000}

var dlina:array[1..1000] of integer;

summa,i: integer;

begin

{вводим длины тысячи удавов, хотя это

и утомительно}

writeln('введи длины удавов');

for i:=1 to 1000 do

readln(dlina[i]);

{Далее определяем суммарную длину тысячи удавов:}

summa:=0;

for i:=1 to 1000 do

summa:=summa+dlina[i];

writeln('длина удавов=',summa);

readln;

end.

Задача Определить средний балл

по информатике за контрольную

S: =0

работу в 10 и классе

uses crt;

var o: array[1..8] of integer;

n,s,i: integer;

sr: real;

begin

clrscr;

s:=0;

writeln('введи кол-во уч-ся');

readln (n);

for i:=1 to 8 do begin

writeln('введи

балл ',i,'-го ученика');

S: = S + b

readln(o[i]);end;

for i:=1 to 8 do

s:=s+o[i];

Sr: = S / n

sr:=(s/n);

writeln ('средний балл=',sr);

readln;

end.

Дата добавления: 2015-07-11