Найти среднее арифметическое всех элементов массива

@Nastya_710 · Регистрация: 23.02.2011

№1. Дан массив размера N и целые числа K и L (1 < K <= L <= N).
Найти среднее арифметическое всех элементов массива, кроме элементов
с номерами от K до L включительно.
№2. Дана матрица размера M х N. В каждой строке матрицы найти
минимальный элемент.

@marshal · 10.04.2011, 19:50

Pascal

uses crt;
const n=random(30);
var a:array[1..n]of integer;i,k,l,s:integer;
begin
clrscr;
writeln('массив');
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;writeln('введите числа k и l');
repeat
readln(k,l);
until (k>=1)and(l>=k)and(l<=n)and(k<n);
for i:=1 to n do
if (i<k)or(i>l) then s:=s+a[i];
writeln('среднее арифметическое=',s);
end.

2.

Pascal

uses crt;
const m=random(20);n=random(20);
var a:array[1..m,1..n]of integer;i,j,min:integer;
begin
clrscr;min:=999999999;
for i:=1 to m do
begin 
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j],' ');
if a[i,j]<min then min:=a[i,j];
end;
write('минимальное',min);
min:=999999999;
writeln;
end;
end.

@Nastya_710 0 / 0 / 0 Регистрация: 23.02.2011 Сообщений: 40
		1
	Найти среднее арифметическое всех элементов массива 10.04.2011, 17:58. Показов 1723. Ответов 1 Метки нет (Все метки) №1. Дан массив размера N и целые числа K и L (1 < K <= L <= N). Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K до L включительно. №2. Дана матрица размера M х N. В каждой строке матрицы найти минимальный элемент. 0

Опции темы

Найти среднее арифметическое всех элементов массива

Решение