Может ли кто-нибудь с темой массивы по информатике? сформировать и вывести на экран в строчку, через пробел, 25 элементов целого типа от -100 до 100 на языке паскаль. заранее

278

482

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

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

magomedov254

Информатика

4,6(62 оценок)

Program programma; uses crt; var i: integer; a: array [1..25] of integer; begin clrscr; randomize; for i: =1 to 25 do a[i]: =random(201)-100; for i: =1 to 25 do write(a[i], ' '); end.

4el2

Информатика

4,8(29 оценок)

Program masivs; var a: array [1..25] of integer; i: integer; begin {формирование массива случайными числами в заданном диапазоне} randomize; for i: =1 to 25 do a[i]: =random(201)-100; {вывод сгенерированных чисел} for i: =1 to 25 do write(a[i],' '); end;

mir32

Информатика

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

Var i,j,n: integer; a: array[1..1000] of boolean; begin write('введите верхнюю границу чисел (до 1000): '); read(n); for i: =1 to n do a[i]: =true; i: =2; while sqr(i)< =n do begin j: =sqr(i); if a[i] then while j< =n do begin a[j]: =false; j: =j+i end; inc(i) end; for i: =1 to n do if a[i] then write(i,' ') end. тестовое решение: введите верхнюю границу чисел (до 1000): 100 1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97