Меню сайта

Дан целочисленный массив из 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]&gt-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 из 712345...Последняя »
Меню раздела
Блок