Айдын, Санжар и Аскар отправились на рыбалку. Количество выловленных рыб – k, l,m соответственно. Если друзья разделят выловленную рыбу поровну, сколько рыб достанется каждому и сколько останется? Разработай программу. Надо на языке

компьютер входит в состав технической системы.

компьютер является надсистемой для ос.

var

mas : array[1..15] of integer;

i: integer;

begin

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

end;

друг сказал) если не правильно извини, но он вродь хорош в информе

не одновременно, а сначала alt и только потом 3 (на цифровой клавиатуре - справа)