Меню сайта

Дан одномерный массив А[N], a[1], a[2],…, a[n] — целые. Заменить все большие 7 члены массива числом 7. Найти количество таких членов.


Решение с использованием генератора случайных чисел

Program mas_1-

Uses Crt-

Const n=10-

Var

a:array[1..n] of integer-

i,count:integer-

BEGIN

ClrScr-

count:=0-

Randomize-

for i:=1 to n do

(далее…)

Категория: Массивы | Дата: 23.12.12

Дан массив из —n -элементов.Найти наименьший элемент массива.
Program -mas_9-
uses crt-
Var a:array[1..1000] -of integer-
min,n,i:integer-
Begin
Writeln(‘введите размерность массива -‘)- Readln(n)-
randomize-
For i:=1 to n do
Begin
a[i]:=random(50)- write(a[i]:4)-
End-
min:=a[1]-
For i:=1 to n do
Категория: Массивы | Дата: 23.12.12

Дан массив из —n -элементов.Найти номер наименьшего элемента массива.
Program -mas_9-
Var a:array[1..1000] -of integer-
k,min,n,i:integer-
Begin
Writeln(‘введите размерность массива -‘)- Readln(n)-
randomize-
For i:=1 to n do
Begin
a[i]:=random(50)- write(a[i]:4)-
End-
min:=a[1]-k:=1-
Категория: Массивы | Дата: 23.12.12

Дан массив из —n -элементов.Упорядочить массив по возрастанию.
Program -mas_12-
uses crt-
Var a:array[1..1000] -of integer-
k,n,I,j:integer-
Begin
Writeln(‘введите размерность массива -‘)- Readln(n)-
randomize-
For i:=1 to n do
Begin
a[i]:=random(100)-50- write(a[i]:4)-
End-
For i:=1 to n-1 do
Категория: Массивы | Дата: 22.12.12

Дан массив из —n -элементов.Упорядочить массив по убыванию.
Program -mas_13-
uses crt-
Var a:array[1..1000] -of integer-
k,n,I,j:integer-
Begin
Writeln(‘введите размерность массива -‘)- Readln(n)-
randomize-
For i:=1 to n do
Begin
a[i]:=random(100)-50- write(a[i]:4)-
End-
For i:=1 to n-1 do
Категория: Массивы | Дата: 22.12.12

Ввести -массив —Aиз 25 элементов.Cформировать массив —B -из элементов массива А, кратных трем.
Program -mas_14-
Var a,b:array[1..25] -of integer-
k,i:integer-
Begin
k:=0-
For i:=1 to 25 do
Begin
Writeln(‘введите элемент массива‘)- Readln(a[i])-
If a[i] mod 3=0 then
— — — — — — — — — — — — Begin
Категория: Массивы | Дата: 22.12.12

Даны массив —Aи —Bиз —n -элементов.Cформировать массив —C -из элементов массивов А и —B, чередуя элементы.
Program -mas_15-
uses crt-
Var a,b,c :array[1..1000] -of integer-
i,n:integer-
Begin
Writeln(‘введите размерность массивов‘)- Readln(n)-
randomize-
Категория: Массивы | Дата: 21.12.12

Дан массив —A -из 100 элементов, состоящий из нулей и 1.Заменить 1 – нулями и наоборот.
Program mas_17-
Uses Crt-
Var a : array[1..100] of byte-
i : byte-
begin
ClrScr-
Randomize-
for i:=1 to 100 do
begin
a[i]:=Random(2)-
Write(a[i])-
end-
Writeln-
for i:=1 to 100 do
begin
a[i]:=1-a[i]-
Write(a[i])-
end-
Категория: Массивы | Дата: 21.12.12

В массиве из 30 элементов задан вес спортсменок одной команды (в килограммах с округлением до десятых). Найти количество спортсменок, чей вес превышает 50 кг, но не более 57 кг. Если таких спортсменок нет – выдать сообщение.
program mas_19-
uses crt-
var a: array [1..30] of real-
i,k: integer-
begin
randomize-
Категория: Массивы | Дата: 21.12.12

Ввести массив из 10 элементов, найти произведение элементов массива.
Program -mas_1-
Var a:array[1..10] -of integer-
I:integer-
P:longint-
Begin
For i:=1 to 10 do
Begin
Writeln(‘введите элемент массива -‘)- Readln(a[i])-
End-
P:=1-
For i:=1 to 10 do p:=p*a[i]-
Writeln(‘Произведение =’,p)-
Readln-
Категория: Массивы | Дата: 21.12.12

Страница 1 из 712345...Последняя »
Меню раздела
Блок