|
|
Дан целочисленный массив из 30 элементов. Найти максимальное количество одинаковых элементов, идущих подряд.
Program mas_20-
const n =30-
var a: array[1..n] of integer-
— i, k, kmax: integer-
begin
for i:=1 to n do
begin
writeln(‘введите’,i,’элемент‘)-
readln(a[i])-
end-
k := 1- — — — — — — — — — — — —
Категория: Массивы |
Дата: 20.12.12
|
Дан целочисленный массив из 30 элементов. Найти количество элементов, равных максимальному.
Program mas_21-
const n=30-
var a:array[1..n] of integer-
— — max, k, i: integer-
begin
— for i:=1 to n do —
begin
writeln(‘ўўҐ¤ЁвҐ’,i,’н«Ґ¬Ґв’)-
readln(a[i])-
end-
— k:=1-
— max:=a[1]-
— for i:=2 to n do begin
Категория: Массивы |
Дата: 20.12.12
|
Дан целочисленный массив из 30 элементов. Найти 3 последовательных элемента, сумма которых максимальна.
Program mas_22-
const n=30-
var a:array[1..n] of integer-
— — Max, Sum, i, k: integer-
begin
— for i:=1 to n do —
begin
writeln(введите’,i,’элемент‘)-
readln(a[i])-
end-
— Sum:=a[1]+a[2]+a[3]-
Категория: Массивы |
Дата: 20.12.12
|
Даны 2 массива. Составить из них 3-й, упорядоченный по возрастанию.
Program mas_23-
uses crt-
var a : array [1..100] of longint-
b : array [1..100] of longint-
c : array [1..200] of longint-
n,m,k,l,i,j,min : longint-
begin
clrscr-
write(‘введите количество элементов n’)-
readln(n)-
write(‘введите количество элементов m’)-
(далее…)
Категория: Массивы |
Дата: 19.12.12
|
Дан — массив из —n -элементов. Получить элементы, которые находятся между минимальным и максимальным.
Program mas_24-
uses crt-
var a,b : array [1..1000]of longint-
f,i,j,n,m,max,min,k,l : longint-
label met-
begin
clrscr-
write(‘количество элементов -n=’)-
readln(n)-
for i:=1 to n do
begin
write(‘a[‘,i,’]=’)-readln(a[i])-
(далее…)
Категория: Массивы |
Дата: 19.12.12
|
Ввести двумерный массив — 3х3 — элементов, найти произведение элементов массива.
Program -dmas_1-
Var a:array[1..10,1..10] -of integer-
i,j:integer-
P:real-
Begin
For i:=1 to 10 do
-For j:=1 to 10 do
Begin
Writeln(‘введите элемент массива -‘)- —
Readln(a[i,j])-
End-
P:=1-
For i:=1 to 10 do
Категория: Массивы |
Дата: 19.12.12
|
Ввести двумерный массив из —nхm —элементов, найти среднее арифметическое элементов массива.
Program -dmas_2-
const n=3-m=4-
Var a:array[1..n,1..m] -of integer-
I,j:integer-
s:real-
Begin
For i:=1 to n do
For j:=1 to m do
Begin
Writeln(‘введите элемент — -‘)- —
Readln(a[i,j])-
End-
s:=0-
Категория: Массивы |
Дата: 19.12.12
|
Дан двумерный массив —nхm —элементов, найти количество положительных чисел.
Program -dmas_3-
uses crt-
const n=3-m=4-
Var a:array[1..n,1..m] -of integer-
k,i,j:integer-
Begin
Randomize-
k:=0-
For i:=1 to n do begin —
For j:=1 to m do
begin
a[i,j]:=random(100)-50- —
write(a[I,j]:4)-
if a[i,j]>-0 then —
Категория: Массивы |
Дата: 18.12.12
|
Дан двумерный массив —nхm —элементов, найти количество четных и нечетных чисел в массиве.
Program -dmas_4-
uses crt-
const n=3-m=4-
Var a:array[1..n,1..m] -of integer-
k1,k2,i,j:integer-
Begin
Randomize-
k1:=0- k2:=0-
For i:=1 to n do begin —
For j:=1 to m do
begin
a[i,j]:=random(100)- —
Категория: Массивы |
Дата: 18.12.12
|
Дан двумерный массив —n -х —m —элементов. Определить, сколько раз встречается число 7 среди элементов массива.
Program -dmas_5-
uses crt-
const n=3-m=4-
Var a:array[1..n,1..m] -of integer-
k,i,j:integer-
Begin
Randomize-
k:=0-
For i:=1 to n do begin —
For j:=1 to m do
begin
a[i,j]:=random(8)- —
Категория: Массивы |
Дата: 18.12.12
|
Страница 2 из 7«12345...»Последняя »
|
|