066536 / Задача 350 в

Задача 350 в): Даны натуральные числа k,n действительные числа а₁, … , а_kn. Получить: min(a₁, … , a_k) + min(a_k+1, … , a_2k) + … + min(a_k(n-1)+1, … , a_kn).

ДА

НЕТ

Текст программы:

uses crt;

const k_max=100;// максимальные

n_max=100;// размеры

type massiv_a = array [1..k_max*n_max] of real;

var a:massiv_a; //массив а

i,j,k,n:integer; //счетчики в циклах

p,min:real;

begin

writeln('введите размеры массива k и n');readln(k,n);

//цикл ввода чисел в массив а

for i:=1 to k*n do

begin

write('a[',i,'] ='); read(a[i]);

end;

min:=0;

for i:=1 to n do

begin

for j:=(k*(i-1)+1) to k*i do

begin

p:=a[k*(i-1)+1];

if a[j]<p then p:=a[j];

end;

writeln('p=',p);

min:=min+p;

end;

writeln('min=',min);

end.

Пример выполнения: