|
|
Сделатьвсе элементы таблицы равными заданному числу.
uses crt-
varx,y,xx,yy,a:integer-
begin-
clrscr-
writeln(‘Введите число’)-
readln(a)-
writeln(‘Введите размер таблицы x и y через Enter’)-
readln(x)-
readln(y)-
clrscr-
FOR xx := 1 TO x do
begin
FOR yy := 1 TO y do
begin
gotoxy(yy, xx)-writeln(a)-
end-
end-
end.
Категория: Массивы |
Дата: 11.12.12
|
Сформироватьмассив из положительных элементов.
uses crt-
vari,k,pr,size,max:integer-
b:array[1..10] ofinteger-
a:array[1..10] ofinteger-
begin-
clrscr-
pr:= 1-
writeln(‘Введите размер массива’)-
readln(size)-
writeln(‘Введите элементы массива’)-
FOR i := 1 TO sizedo
begin
readln(b[i])-
end-
begin
IF b[i] >- 0 THEN
(далее…)
Категория: Массивы |
Дата: 11.12.12
|
Дан массив из —n —элементов, найти количество четных и нечетных чисел в массиве.
Program -mas_4-
uses crt-
Var a:array[1..1000] -of integer-
k1,k2,n,i:integer-
Begin
Writeln(‘введите размерность массива -‘)- Readln(n)-
Randomize-
k1:=0- k2:=0-
For i:=1 to n do
begin
a[i]:=random(100)- write(a[i]:4)-
Категория: Массивы |
Дата: 11.12.12
|
Заменить все элементы массива стоящие до максимального нулями.
uses crt-
vari,size,num,max:integer-
a:array[1..10000]of integer-
begin-
ClrScr-
writeln(‘Введите размер массива’)-
readln(size)-
FOR i := 1 TO sizedo
begin
clrscr-
writeln(‘Введите элементы массива’)-
readln(a[i])-
end-
max := a[1]-
clrscr-
writeln(‘Введенный массив’)-
(далее…)
Категория: Массивы |
Дата: 10.12.12
|
Заменитьвсе элементы массива стоящие после минимального нулями.
uses crt-
vari,size,min,num:integer-
a:array[1..10000]of integer-
begin-
clrscr-
writeln(‘Введите размер массива’)-
readln(size)-
writeln(‘Введите элементы массива’)-
FOR i := 1 TO sizedo
begin
readln(a[i])-
end-
min := a[1]-
FOR i := 2 TO sizedo
begin
(далее…)
Категория: Массивы |
Дата: 10.12.12
|
Определитьсколько элементов массива <-,>-,= X.
uses crt-
varx,i,size,more,less,mid:integer-
a:array[1..10000]of integer-
begin
CLrscr-
writeln(‘Введите размер массива’)-
readln(size)-
writeln(‘Введите элементы массива’)-
FOR i := 1 TO sizedo
begin
readln(a[i])
end-
writeln(‘Введите число x’)-
readln(x)-
FOR i := 1 TO sizedo
(далее…)
Категория: Массивы |
Дата: 10.12.12
|
Сколько вмассиве Т(м) элементов меньших суммы всех элементов.
uses crt-
vari,size,summa,num:integer-
t:array[1..10000]of integer-
begin-
clrscr-
writeln(‘Введите размер массива’)-
readln(size)-
writeln(‘Введите элементы массива’)-
FOR i := 1 TO sizedo
begin
readln(t[i])-
end-
FOR i := 1 TO sizedo
begin
summa := summa +t[i]-
(далее…)
Категория: Массивы |
Дата: 09.12.12
|
Напечататьсумму, произведение и номера полож элементов после последнего нулевого элемента.
uses crt-
vari,size,num,summa,pr,k:integer-
x:array[1..10000]of integer-
n:array[1..10000]of integer-
begin-
clrscr-
writeln(‘Введите размер массива’)-
readln(size)-
FOR i := 1 TO sizedo
begin
clrscr-
writeln(‘Введите элементы массива’)-
(далее…)
Категория: Массивы |
Дата: 09.12.12
|
Найтисумму и кол-во элементов в массиве Т после первого нулевого элемента.
uses crt-
vari,num,size,summa,k:integer-
t:array[1..10000]of integer-
begin-
clrscr-
writeln(‘Введите размер массива’)-
readln(size)-
FOR i := 1 TO sizedo
begin
clrscr-
writeln(‘Введите элементы массива’)-
readln(t[i])-
end-
writeln(‘Введенные элементы’)-
(далее…)
Категория: Массивы |
Дата: 09.12.12
|
Напечататьсумму отрицательных элементов массива А после первого нулевого элемента.
uses crt-
vari,size,num,summa:integer-
a:array [1..10000]of integer-
label 1-
begin-
clrscr-
writeln(‘Введите размер массива’)-
readln(size)-
writeln(‘Введите элементы массива’)-
FOR i := 1 TO sizedo
begin
readln(a[i])-
end-
FOR i := 1 TO sizedo
(далее…)
Категория: Массивы |
Дата: 08.12.12
|
Страница 5 из 7« Первая«...34567»
|
|