Создать массив a из десяти целых чисел, принадлежащих промежутку [-50; 50). вывести полученный массив на экран

150

359

Посмотреть ответы 2

Ответы на вопрос:

Nezox1123

Информатика

4,4(46 оценок)

Var a: array[1..10] of integer; i: integer; begin randomize; for i: =1 to 10 do begin a[i]: =(random(101)-50); writeln (a[i]); end; end.

MilаKlimenkova

Информатика

4,7(89 оценок)

program princess; uses crt; var m: integer; begin writeln('***************************************'); writeln('* вас *'); writeln('* программа проверки принцесс *'); writeln('* *'); writeln('* сейчас *'); writeln('***************************************'); writeln('1. постелите постель для девушки'); writeln('2. подложите горошину'); writeln('3. дождитесь '); writeln('4. разбудите девушку'); writeln('5. спросите: "как вам спалось? " '); writeln('6. введите в систему ответ девушки: '); writeln(' 0 - "плохо, совсем не сомкнула " '); writeln(' 1 - "отлично выспалась" '); readln(m); writeln('***************************************'); writeln('* *'); if m=0 then writeln('* эта девушка - настоящая принцесса! *') else writeln('* увы! эта девушка - не принцесса! *'); writeln('***************************************'); end.