Завтра зачет по информатике..,помогите решить задачу на поскале.

[Ivan357]

Дан массив из 11-ти элементов. все елементы массива,которые меньше 6-ого и больше 33 , заменить на первый элемент массива.

[MalexG]

var
  A: array[1..11] of integer;
  i: integer;
begin
  for i := 1 to 11 do
    if (A[i] < A[6]) and (A[i] > 33) then
      A[i] := A[1];
end;

[Gorychev]

Ivan357, а вы на кого учитесь? Просмотрел ваши темы - вы в паскале как говорится ни в зуб ногой, везде хотите нашару пролезть... что вам с успехом и удается. Сами себя обманываете в первую очередь...

[Ivan357]

спасибо!только я немогу сделать так,чтоб он мне выводил ряд чисел (на черный экран)

[Ivan357]

Возможно,но понимаете ли, я действительно в информатике О!! а в институте предмет обязательный и вылетать из-за нее нехочется...(учусь на инженера в автомобильной сфере)

[ROD]

Сообщение от Ivan357

Возможно,но понимаете ли, я действительно в информатике О!! а в институте предмет обязательный и вылетать из-за нее нехочется...(учусь на инженера в автомобильной сфере)

Щас без этого никуда.

[Gorychev]

uses crt;
var   A: array[1..11] of integer;
  i: integer;
begin
  clrscr;
  randomize;

  for i := 1 to 11 do  write(i:4);
  writeln;
  for i := 1 to 11 do  write('----');
  writeln;

  for i := 1 to 11 do begin
  A[i]:= random(100);
  write(A[i]:4);
  end;
  writeln;

  for i := 1 to 11 do
  begin
    if (A[i] < A[6]) and (A[i] > 33) then
      A[i] := A[1];
      write(A[i]:4);
  end;
  readln;

end.