Даны натуральные числа K, N. Вещественные числа a1,a2...akn

[Gasphord]

Даны натуральные числа K, N. Вещественные числа a1,a2...akn

Помогите написать такой код.

 

[Vladimir_S]

Помогите написать такой код.

Задачка абсолютно детская, примитивная, а потому можем только помочь отладить Ваше решение, когда оно будет выложено. Никаких "вы пишите — я скатаю" не будет.

 

[Gasphord]

Задачка абсолютно детская, примитивная, а потому можем только помочь отладить Ваше решение, когда оно будет выложено. Никаких "вы пишите — я скатаю" не будет.

uses
  System.SysUtils,
  Windows;

Var
  n,k,i,x :integer;
  max1,max2,max3,a :real;

Begin
 Readln(k,n,max1);

    for i:=2 to k do
    begin
    readln(max1);
    if a>max1 then max1:=a;
    end;

  readln(max2);
  for i:=k+2 to 2*k do
     begin
     readln(a);
     if a>max2  then max2:=a;
     end;
x:=2*k;
while x<=k*(n-1)+1 do
begin
 read(a);
x:=x+1;
end;
max3:=a;
for i:= x to k*n do
  begin
  read(a);
  if a>max3 then max3:=a;
  end;
  Writeln(max1,max2,max3);
  readln;
end.

 

[Vladimir_S]

Так, понятно.
Очень нездорово.
Явно бездумная компиляция из чего-то.
Ладно, давайте разберём задачку.
Итак, у нас есть последовательность вещественных чисел, которая может быть разбита на n "звеньев" по k элементов в каждом. Вот и давайте, прежде всего, зададим эти самые n и k, причем лучше в виде констант — так проще будет задать массивы.
Далее описываем переменные.
Вводим два массива: нашу последовательность длиной kn и искомую последовательность максимумов длиной n. Кроме того, зададим переменные циклов i и j.
Можно, конечно, вводить последовательность с клавиатуры, но проще и быстрее воспользоваться генератором случайных чисел, причём следует использовать команду Random без параметров, поскольку последовательность по условиям задачи вещественная, а не целая. Результат выводим на экран.
Дальше обычным образом ищем максимумы "звеньев" и их тоже выводим.
Программа и результат представлены ниже. Сразу оговорюсь: у меня обычный Turbo (Free) Pascal, у Вас же, похоже, ABC. За неумелки последнего — не отвечаю. Извините.

Const
 n=4;
 k=3;

Var
 A:Array[1..n*k] of Real;
 Max:Array[1..n] of Real;
 i,j:Integer;

Begin
 Randomize;
 Writeln('Initial array:');
 for i:=1 to n*k do
  begin
   A[i]:=Random*99;
   Write(A[i]:8:3);
  end;
 Writeln;
 Writeln;
 Writeln('Maximal values in ',k,'-component groups:');
 for i:=1 to n do Max[i]:=0;
 for i:=1 to n do
  for j:=1 to k do
   if A[j+k*(i-1)]>Max[i] then Max[i]:=A[j+k*(i-1)];
 for i:=1 to n do Write(Max[i]:8:3);
 Readln
End.

 

[Gasphord]

Спасибо огромное за объяснение, очень сильно помогли. Попробую сделать сам,без массивов. Еще раз спасибо.
Не могли вы бы посоветовать какую-нибудь литературу, пособия и тд, для новичка ("программирую" на делфи 10)
Только начал и хочу научиться хотя бы азам написания кода.

 

[Vladimir_S]

Не могли вы бы посоветовать какую-нибудь литературу, пособия и тд, для новичка ("программирую" на делфи 10) Только начал и хочу научиться хотя бы азам написания кода.

На все подобные вопросы отвечаю одинаково: начните с любых пособий-справочников, благо их в Сети полнО, а дальше — главное: практика, практика и ещё раз практика!

Попробую сделать сам,без массивов.

Массивы-то чем Вам не угодили?

 

[Gasphord]

На все подобные вопросы отвечаю одинаково: начните с любых пособий-справочников, благо их в Сети полнО, а дальше — главное: практика, практика и ещё раз практика!Массивы-то чем Вам не угодили?

Просто я совершенно не умею работать с массивами, и хочу попытаться решить эту задачу без массивов.Спасибо за совет. И еще вопрос, сколько лет вы уже занимаетесь программированием, я так понял что уже больше 11 лет?

 

[Vladimir_S]

Просто я совершенно не умею работать с массивами, и хочу попытаться решить эту задачу без массивов.

Решение неверное: тупиковый путь в никуда. Не умеете работать с массивами? Так учитесь, черт побери, с ними работать, тем более, что ничего сложного в этом нет. А если завтра Вам понадобится работать, скажем, с файлами, то тоже скажете — не умею, попытаюсь обойтись без них? Нет, так нельзя.

Спасибо за совет.

Да не за что...

И еще вопрос, сколько лет вы уже занимаетесь программированием, я так понял что уже больше 11 лет?

"Уже больше" 41 года.