Меню сайта

Сделатьвсе элементы таблицы равными заданному числу.

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] &gt- 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

Определитьсколько элементов массива &lt-,&gt-,= 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
Меню раздела
Блок