|
Задача
1. Дан массив
чисел. Найти, сколько в нем пар одинаковых соседних элементов.
Переменные:
mas – массив
чисел;
n – размер массива;
i – переменная цикла;
k – количество одинаковых пар соседних элементов.
program
zadacha1;
uses crt;
var mas : array
[1..100] of integer;
i, k, n
: integer;
begin
write('введи количество элементов n=');
readln(n);
k:=0;
for i:=1
to n do
begin
write('введи элемент массива');
readln(mas[i]);
end;
for
i:=1 to n-1 do
if
mas[i]=mas[i+1] then k:=k+1;
writeln('одинаковых
пар соседних элементов ',k);
{вывод массива}
for i:=1
to n do
write('
',mas[i]);
readln;
end.
Задача
2. Дан массив
чисел. Вывести на экран количество трех соседних одинаковых элементов.
Задача
3. Дано 20 целых
чисел. Распечатать их в обратном порядке по 6 чисел в строке.
program zadacha1;
uses crt;
const d=6; n=20;
var x : array [1..100]
of integer;
i, k : integer;
begin
{ввод массива:}
writeln('введи массив из ', n,' чисел');
for i:=1 to n do read(x[i]);
{вывод массива по d чисел в строке:}
k:=0;
{номер числа в строке}
for i:=n downto 1 do
begin
k:=k+1;
write(x[i]:4);
if k=d
then
begin
k:=0; writeln;
end; end;
if k <> 0
then writeln end.
Задача
3. Дано 10 целых
чисел. Распечатать их в обратном порядке по 4 числа в строке.
|
Задача
1. Дан массив
чисел. Найти, сколько в нем пар одинаковых соседних элементов.
Переменные:
mas – массив
чисел;
n – размер массива;
i – переменная цикла;
k – количество одинаковых пар соседних элементов.
program
zadacha1;
uses crt;
var mas : array
[1..100] of integer;
i, k, n
: integer;
begin
write('введи количество элементов n=');
readln(n);
k:=0;
for i:=1
to n do
begin
write('введи элемент массива');
readln(mas[i]);
end;
for
i:=1 to n-1 do
if
mas[i]=mas[i+1] then k:=k+1;
writeln('одинаковых
пар соседних элементов ',k);
{вывод массива}
for i:=1
to n do
write('
',mas[i]);
readln;
end.
Задача
2. Дан массив
чисел. Вывести на экран количество трех соседних одинаковых элементов.
Задача
3. Дано 20 целых
чисел. Распечатать их в обратном порядке по 6 чисел в строке.
program zadacha1;
uses crt;
const d=6; n=20;
var x : array [1..100]
of integer;
i, k : integer;
begin
{ввод массива:}
writeln('введи массив из ', n,'
чисел');
for i:=1 to n do read(x[i]);
{вывод массива по d чисел в строке:}
k:=0;
{номер числа в строке}
for i:=n downto 1 do
begin
k:=k+1;
write(x[i]:4);
if k=d
then
begin
k:=0; writeln;
end; end;
if k <> 0
then writeln end.
Задача
3. Дано 10 целых
чисел. Распечатать их в обратном порядке по 4 числа в строке.
|
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.