Написать программу вычисляющую среднее арифметическое целых чисел от 0 до 100.

Var i,k: integer; s: real; begin for i: =0 to 100 do begin s: =s+i; k: =k+1; end; s: =s/k; writeln (s: 5: 2); end.

Қазақ халқы- ең қонақжай халық болып есептелінеді. Бұрыңғы қиын қыстау заманда біздің елге көшіп келген өзге ұлт өкілдерін қуып шықпай төріне кіргізді. Үйіне қонақ келсе сол қонақтан ұят болмау үшін 1 қойы болсада соны сойып ет асқан.

Сол ата бабамыздан қалған қасиет менің ата анамада дарыған.Біздің үйге танитын болсын,танымайтын болсын келсе есігіміз әрдайым ашық,дастарханымыз дайын.Үйге келген қонақ біздең ас жемей кетпиді.Қонағымызды үй ішіндегі барлығымыз сыйлап, құрметтеп төрге шығарып тамақ беріп бір жақсылап демалтамыз.

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   a.where((x,i)-> i.isodd).println; // для №1   writeln('сумма =',a.where((x,i)-> i.iseven).sum); // для №2 end. пример n= 13 -2 33 -49 49 50 -48 -11 27 47 10 17 22 38 33 49 -48 27 10 22 сумма =90 №3 begin   var a: =arrrandom(15,-99,99); a.println;   a[a.indexmax]: =0; a.println end. пример 34 -62 -42 98 44 -56 9 -69 85 55 -86 -32 83 -94 -19 34 -62 -42 0 44 -56 9 -69 85 55 -86 -32 83 -94 -19