28.11.2020, 00:39 | #1 (permalink) |
Member
Регистрация: 25.11.2020
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль, 1курс, модуль
Это нужно решить хоть как-то |
28.11.2020, 00:39 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
По заголовкам нашлось еще кое что схожее, можете посмотреть Паскаль, 1курс, модуль GPS модуль GSM модуль |
28.11.2020, 14:38 | #2 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Код:
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, 21:14 | #3 (permalink) | |
Member
Регистрация: 25.11.2020
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|