fellybrossme
?>

Запиши программу на языке Паскаль.varin:word;beginwrite('n=');readln(n);for i:=1 to n do begin write(', ');end;readln;end.На экранеп= 4O 1234O 4O 16О 0​

Информатика

Ответы

khadisovam9

4

Объяснение:

Ну вот так вот.

cochana
Const 
  N = 15;

var
  mas:array[1..15] of integer;
  i, max1, max2, min, c, d:integer;

begin
  c:=-1;
  max1:=-maxint;
  min:=maxint;
  max2:=-maxint;
  randomize;
  for i:=1 to N do
    mas[i]:=random(101)-50;
  write('Массив: ');
  for i:=1 to N do
    write(mas[i], ' ');
  writeln;
  for i:=1 to N do
  begin
    if (mas[i]>0) AND (mas[i]>max1) then
      max1:=mas[i];
   if (mas[i] mod 2 <> 0) AND (max2<mas[i]) then
   begin
     c:=i;
     max2:=mas[i];
   end;
   if (mas[i] mod 2 <> 0) AND (min>mas[i]) then
   begin
     d:=i;
     min:=mas[i];
   end;
  end;
  writeln('Максимальный положительный элемент: ',max1);
  writeln('Минимальный нечетный элемент: ',min);
  writeln('Максимальный нечетный элемент: ',max2);
  if c<d then
    writeln('Максимальный элемент стоит раньше')
  else
   writeln('Минимальный элемент стоит раньше');
end.
Igor120

конкретно в каких стейтментах была ошибка , я не смог разобраться , но фактически у тебя

1.был не правильный вывод (m[1])

2.неправильная итерация по циклу с переменной 'с'

крч легче было просто переделать

var

c, n, i, j: integer;

m: array[1..1000] of integer;

begin

Readln(n);

for i := 1 to n do

begin

m[i] := i;

Write(m[i], ' ');

end;

writeln;

while n >= 1 do

begin

if c+2 < n then c := c + 3 else c := n - c + 3;

for i:=c to n do m[c]:=m[c+1];

n := n - 1;

end;

writeln(m[c]);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Запиши программу на языке Паскаль.varin:word;beginwrite('n=');readln(n);for i:=1 to n do begin write(', ');end;readln;end.На экранеп= 4O 1234O 4O 16О 0​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Бочкова_Елена203
rublevaoe392
ella440
Иванович621
Stepanovich_Makarov
kapral1812
evainvest1
saa002
Sharap
domtorgvl20082841
Бурмистров_Салагин1074
Найти ошибку в программе и исправить её
Николаевна Филиппов1936
bogatskayaa
stasletter
parolmm