Решите все подробноvar k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 45; dat[2] : = - id136196320200507 от эмилисенок2 07.05.2020 03:13

Question

Информатика: Решите все подробноvar k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 45; dat[2] : = 55;  dat[3] : = 40; dat[4] : = 15;  dat[5] : = 20; . dat[6] : = 80;  dat[7] : = 35; dat[8] : = 70;  dat[9] : = 10; dat[10] : = 45;  m: = dat[1];  for k: = 4 to 10 do begin  if dat[k] = dat[1] then  begin   m: = m + dat[k]  end end;  write(m); end.​

эмилисенок2 · Accepted Answer

ответ: попробуй

объяснение:

void __fastcall tform1: : button1click(tobject *sender)

{

int count = 0;

tstringlist *list = new tstringlist; // г±г®г§г¤г*гґг¬ г±гїгёг±г®гє

list-> loadfromfile("f: \\гљгіг«гјгігёг*\\info.txt");

memo1-> text = list-> text;

list-> delimitedtext = memo1-> text;

memo2-> text = list-> delimitedtext;

for (int i=0; i < list-> count; i++)

{

if ( list-> strings[i].length() < = 4 )

{

count++;

}

label1-> caption = inttostr(count);

delete list;

list = null;

}

MOGZ ответил