Язык программирования - Pascal). Составить фрагмент программы вычисления среднего значения одномерного массива, используя цикл с предусловием

Принять размер массива – 10 элементов, тип элементов – real.

program exam03;

{ Составить фрагмент программы вычисления среднего значения }

{ одномерного массива, используя цикл с предусловием }

{ топорный вариант: сначала ввод массива, затем вычисления }

{ красивее: сразу при вводе вычислять сумму вводимых чисел }

var

a: array[1..10] of real;

aa, sr: real; // текущее и среднее значение

i: integer; // счетчик

begin

// ввод массива

for i:=1 to 10 do begin write('a[',i,']= '); readln(a[i]); end;

// контрольный вывод массива

writeln('введен массив:');

for i:=1 to 10 do write(a[i]:10:3); writeln;

sr:=0; i:=1;

// требуемый цикл с предусловием

while i<=10 do begin sr:=sr+a[i]; i:=i+1; end;

sr:=sr/10;

writeln('среднее значение:', sr:10:3);

readln;

end.

Язык программирования - Pascal). Составить фрагмент программы вычисления минимального значения одномерного массива, используя цикл с постусловием

program exam05;

{ Составить фрагмент программы вычисления минимального }

{ значения одномерного массива, используя цикл с постусловием }

var

a: array[1..10] of real;

aa, min: real; // текущее и минимальное значение

i: integer; // счетчик

begin

// ввод массива

for i:=1 to 10 do begin write('a[',i,']= '); readln(a[i]); end;

// контрольный вывод массива

writeln('введен массив:');

for i:=1 to 10 do write(a[i]:10:3); writeln;

min:=a[1]; i:=2;

// требуемый цикл с постусловием

repeat

if min>a[i] then min:=a[i]; i:=i+1;

until i=10;

writeln('минимальное значение:', min:10:3);

readln;

end.

7. (Язык программирования – Pascal, C++). Составить фрагмент программы открытия и чтения строк из текстового файла

program exam07;

{ Составить фрагмент программы открытия и чтения строк из текстового файла }

var

s: string;

f: text;

begin

Assign(f,'exam07.txt');

{$I-}

Reset(f);

{$I+}

if IOResult<>0 then begin

writeln('ошибка чтения файла'); halt(1);

end;

while not eof(f) do begin

readln(f,s); writeln(s);

end;

Close(f);

readln;

end.

Язык программирования - Pascal). Составить фрагмент программы вычисления среднего значения одномерного массива, используя цикл со счетчиком

program exam08;

{ Составить фрагмент программы вычисления среднего значения }

{ одномерного массива, используя цикл со счетчиком }

{ топорный вариант: сначала ввод массива, затем вычисления }

{ красивее: сразу при вводе вычислять сумму вводимых чисел }

var

a: array[1..10] of real;

aa, sr: real; // текущее и среднее значение

i: integer; // счетчик

begin

// ввод массива

for i:=1 to 10 do begin write('a[',i,']= '); readln(a[i]); end;

// контрольный вывод массива

writeln('введен массив:');

for i:=1 to 10 do write(a[i]:10:3); writeln;

sr:=0; i:=1;

// требуемый цикл со счетчиком

for i:=1 to 10 do sr:=sr+a[i]; sr:=sr/10;

writeln('среднее значение:', sr:10:3);

readln;

end.

Язык программирования - Pascal). Составить фрагмент программы вычисления минимального значения одномерного массива, используя цикл со счетчиком

program exam10;

{ Составить фрагмент программы вычисления минимального }

{ значения одномерного массива, используя цикл со счетчиком }

var

a: array[1..10] of real;

aa, min: real; // текущее и минимальное значение

i: integer; // счетчик

begin

// ввод массива

for i:=1 to 10 do begin write('a[',i,']= '); readln(a[i]); end;

// контрольный вывод массива

writeln('введен массив:');

for i:=1 to 10 do write(a[i]:10:3); writeln;

min:=a[1]; i:=2;

// требуемый цикл со счетчиком

for i:=1 to 10 do if min>a[i] then min:=a[i];

writeln('минимальное значение:', min:10:3);

readln;

end.

Язык программирования - Pascal). Составить фрагмент программы ввода и вывода на экран двумерного массива

program exam12;

{ Составить фрагмент программы ввода и вывода на экран двумерного массива }

type

matrix= array [1..10, 1..10] of integer;

var

a: matrix;

m, n: integer; {число строк и столбцов }

i, j: integer; { индексы массива }

begin

// ввод массива

write('введите число строк: '); readln(m);

write('введите число столбцов: '); readln(n);

for i:=1 to m do {цикл для перебора всех строк}

for j:=1 to n do begin {перебор элементов строки по столбцам}

write('a[',i,',',j,']= ');readln (a[i,j]);

end;

// контрольный вывод массива

for i:=1 to m do begin

for j:=1 to n do write(a[i,j]:4); {перебор всех элементов строки по столбцам}

writeln;

end;

readln;

end.