close

Вход

Забыли?

вход по аккаунту

?

Массив. Пример.

код для вставкиСкачать
Задача 1.Дан массив чисел. Найти, сколько в нем пар одинаковых соседних элементов.
Переменные:
mas - массив чисел;
n - размер массива;
i - переменная цикла;
k - количество одинаковых пар соседних элементов.
Алгоритм решения задачи:
1. вводим длину массива n, значение элементов массива и устанавливаем начальное значение k;
2. последовательно просматриваем элементы и, если очередной mas[i] равен следующему mas[i+1], то увеличиваем значение k на единицу;
3. выводим результат.
const m=100;
var mas : array [1..m] 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;
wrietln('Одинаковых пар соседних элементов ',k);
end.
Задача 2.Программа. Дано 100 целых чисел. Распечатать их в обратном порядке по 6 чисел в строке.
const n=100; d=6;
var x : array [1..n] 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.
Автор
georg88
Документ
Категория
Без категории
Просмотров
176
Размер файла
17 Кб
Теги
массивы, пример
1/--страниц
Пожаловаться на содержимое документа