

Решение 1 задачи
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
program mypascal; uses crt; var a: array[1..10] of integer; m,i,s:integer; begin randomize; readln(m); s:= ; for i:= 1 to 10 do begin a[i]:= random(21)-10; if ( a[i] > m ) then s:= s + a[i]*a[i]; write(a[i],' '); end; writeln(); writeln(s); end. |
2. Дан одномерный массив , значения элементов которого вводятся с клавиатуры. Поменять максимальный и минимальный элементы данного массива местами. На экран вывести исходный массив и полученный результат.
Решение 2 задачи
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
program mypascal; uses crt; var a: array[1..10] of integer; max,min,c,i:integer; begin for i:= 1 to 10 do read(a[i]); max:= 1; min:= 1; for i:= 2 to 10 do begin if ( a[i] > a[max] ) then max:= i; if ( a[i] < a[min] ) then min:= i; end; c:= a[max]; a[max]:= a[min]; a[min]:= c; for i:= 1 to 10 do write(a[i],' '); end. |
3. Дан одномерный массив , значения которого вводятся с клавиатуры . Вычислить количество отрицательных элементов данного массива. На экран вывести исходный массив и полученный результат.
Решение 3 задачи
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
program mypascal; var a: array[1..10] of integer; i,n:integer; begin n:= ; for i:= 1 to 10 do begin readln(a[i]); if ( a[i] < ) then inc(n); end; for i:= 1 to 10 do write(a[i],' '); writeln(); writeln(n); end. |
4. Дан одномерный массив , значения элементов которого вводятся с клавиатуры. Отрицательные элементы данного массива заменить их модулями , нулевые остаются неизменными , а положительные квадратами. На экран вывести исходный массив и полученный результат.
Решение 4 задачи
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
program mypascal; var a: array[1..10] of integer; i:integer; begin for i:= 1 to 10 do begin readln(a[i]); if ( a[i] < ) then a[i]:= a[i]*(-1) else if ( a[i] > ) then a[i]:= a[i]*a[i]; end; for i:= 1 to 10 do write(a[i],' '); end. |
5. Дан одномерный массив , значения элементов которого вводятся с клавиатуры. Выяснить , каких элементов больше — положительных или отрицательных и насколько. На экран вывести исходный массив и полученный результат.
Решение 5 задачи
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
program mypascal; var a: array[1..10] of integer; i,x,y:integer; begin x:= ; y:= ; for i:= 1 to 10 do begin readln(a[i]); if ( a[i] < ) then inc(x) ; if ( a[i] > ) then inc(y); end; for i:= 1 to 10 do write(a[i],' '); writeln(); if ( x > y ) then writeln('Отрицательных больше на ',x-y); if ( x < y ) then writeln('Положительных больше на ',y-x); end. |