Паскаль, 1курс, модуль

mille · 28.11.2020, 00:39

Для произвольного одномерного массива С из 10 элементов к четным прибавить максимальній элемент массива, а из элементов с четными номерами вычесть В, где В вводится с клавиатуры.

Это нужно решить хоть как-то

Евгений · 28.11.2020, 14:38

Код:

var c:array[1..10] of integer;
    i,b,max:integer;
begin
  Randomize; max:=0;
  for i:=1 to 10 do
   begin
    c[i]:=Random(50); Write(c[i]:4);
    if c[i]>max then max:=c[i];
   end;
  Writeln; Writeln;
  Writeln('max = ',max); Writeln;
  Write('B = '); Readln(b);
  Writeln;
  for i:=1 to 10 do
   begin
    if (c[i] mod 2)=0 then c[i]:=c[i]+max;
    if (i mod 2)=0 then c[i]:=c[i]-b;
    Write(c[i]:4)
   end;
  Readln;
end.

mille · 28.11.2020, 21:14

Цитата:

Сообщение от Евгений

Код:

var c:array[1..10] of integer;
    i,b,max:integer;
begin
  Randomize; max:=0;
  for i:=1 to 10 do
   begin
    c[i]:=Random(50); Write(c[i]:4);
    if c[i]>max then max:=c[i];
   end;
  Writeln; Writeln;
  Writeln('max = ',max); Writeln;
  Write('B = '); Readln(b);
  Writeln;
  for i:=1 to 10 do
   begin
    if (c[i] mod 2)=0 then c[i]:=c[i]+max;
    if (i mod 2)=0 then c[i]:=c[i]-b;
    Write(c[i]:4)
   end;
  Readln;
end.

Спасибо большое

28.11.2020, 00:39	#1 (permalink)
mille Member Регистрация: 25.11.2020 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль, 1курс, модуль Для произвольного одномерного массива С из 10 элементов к четным прибавить максимальній элемент массива, а из элементов с четными номерами вычесть В, где В вводится с клавиатуры. Это нужно решить хоть как-то

28.11.2020, 00:39
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	По заголовкам нашлось еще кое что схожее, можете посмотреть Паскаль, 1курс, модуль GPS модуль GSM модуль

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070