Карточки по теме «Работа с одномерными массивами в программе Pascal ABC»

Карточки по теме «Работа с одномерными массивами в программе Pascal ABC»

Задача 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. Дан массив чисел. Найти, сколько в нем пар одинаковых соседних элементов.
Переменные:
массив чисел;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 числа в строке.