Программа: Вывод второй строки двумерного массива

Задача: Заполнить двумерный массив. Вывести вторую строку этого массива

PROGRAM vtorayastrmass;

var i,k:integer;

M :array[1..10,1..10] of integer;

BEGIN

Randomize;

for i:=1 to 10 do

begin

for k:=1 to 10 do

M[i,k]:=random(100);

end;

WriteLn;

for k:=1 to 10 do

Write(M[2,k],' ');

END.

Программа: Cумма и среднее арифметическое последовательности положительных чисел

Задача: Посчитать сумму и среднее арифметическое цифр введеных в строку

PROGRAM summa_i_sr_arifm;

var str :string;

a,s,i,b :integer;

sr :real;

BEGIN

ReadLn(str);

a:=length(str);

s:=0;

for i:=1 to a do

begin

b:=StrtoInt(str[i]);

s:=b+s;

end;

sr:=s/a;

WriteLn('Сумма цифр равна: ',s,' Среднее арифметическое равно: ',sr);

END.

Программа: Найти разницу между минимальным и максимальным элементами в массиве

Задача: В целочисленном массиве найти разность между максимальным и минимальным элементами

PROGRAM massraznost;

USES crt;

var A :array[1..10] of integer;

k,i,s,r :integer;

BEGIN

k:=0;

s:=0;

for i:=1 to 10 do

begin

A[i]:=random(10);

if A[i] > k

then k:=A[i] //Максимальный

end;

for i:=1 to 10 do

begin

if A[i] < k

then s:=A[i] //Минимальный

end;

r:=k-s; //Разница

Writeln('Максимальный элемент: ',k);

Writeln('Минимальный элемент: ',s);

Writeln('Разница равна: ',r);

END.

Программа: Определить сколько раз встречается макс. Элемент

Задача: В целочисленном массиве определить, сколько раз встречается максимальный элемент

PROGRAM massmaxelem;

USES crt;

var A :array[1..10] of integer;

k,i,s :integer;

BEGIN

k:=0;

s:=0;

for i:=1 to 10 do

begin

A[i]:=random(10);

if A[i] > k

then k:=A[i]

end;

for i:=1 to 10 do

begin

if A[i] = k

then s:=s+1;

end;

Writeln('',k,' - максимальный элемент. В массиве встречается ',s,' р.');

END.

Программа: Встречается ли k число в массиве?

Задача: Проверить, встречается ли число k в массиве А[10]

PROGRAM chislokvmass;

USES crt;

var A :array[1..10] of integer;

k,i :integer;

BEGIN

WriteLn('Введите число k');

ReadLn(k);

for i:=1 to 10 do

begin

A[i]:=random(10);

if A[i] = k

then WriteLn('Число ',k,' присутствует в массиве');

end;

END.

Программа: Заменить во веденном предложении буквы

Задача: Дано предложение. Заменить в нем все буквы "А" на "О". В данной программе можно заменять любую букву на любую другую.

PROGRAM slovo;

USES crt;

var str,a:string;

i:integer;

b:char;

BEGIN

WriteLn('Введите любое слово: ');

ReadLn(str);

WriteLn('Введите заменяемую букву: ');

ReadLn(a);

WriteLn('Введите на какую букву заменить: ');

ReadLn(b);

for i:=1 to length(str) do

if str[i]=a then str[i]:=b;

writeln(str);

ReadLn;

END.

Программа: Определение процентного содержания буквы в предложении

Задача: Дано предложение. Определить процентное содержание в нем введеной буквы

PROGRAM slovoprocent;

USES crt;

var str,a,b :string;

pr,str2 :real;

i :integer;

BEGIN

WriteLn('Введите любое слово: ');

ReadLn(str);

WriteLn('Введите букву: ');

ReadLn(b);

for i:=1 to length(str) do

if str[i] = b

then

begin

str2:=str2+1;

end;

pr:=100 / str2;

WriteLn(pr,'%');

END.

Программа: Добавить к слову знаки "+" и "-", в начало и конец соответственно

Задача: Дано слово добавить к нему знак "+" в начало, знак "-" в конец

PROGRAM slovoplusminus;

USES crt;

var str,a,b :string;

x,i :integer;

BEGIN

WriteLn('Введите любое слово: ');

ReadLn(str);

a:='+';

b:='-';

insert(a,str,1);

str:=str+b;

Writeln(str) ;

END.

Программа: Вывод букв стоящих в нечетных местах

Задача: Дано слово. Вывести все буквы, стоящие в нечетных местах

PROGRAM slovonechet;

USES crt;

var str :string;

x,i :integer;

BEGIN

WriteLn('Введите любое слово: ');

ReadLn(str);

x:=length(str);

for i:=1 to x do

if i mod 2 <> 0

then write(str[i]);

END.

Программа: Вывести слово в обратном порядке

Задача: Дано слово. Вывести его буквы в обратном порядке.

PROGRAM slovo;

USES crt;

var str: string; x,i:integer;

BEGIN

WriteLn('Введите любое слово: ');

ReadLn(str);

x:=length(str);

for i:=x downto 1 do

Write(str[i]);

END.

Программа: Сложная таблица умножения

Задача: Ввести число, и построить таблицу умножения до введенного числа. Именно таблицу!

PROGRAM table_umnog;

var i,a,n,k :integer;

BEGIN

WriteLn();

ReadLn(n);

Write('_');

for i:=2 to 9 do Write(' |',i);

WriteLn();

for i:=2 to n do

begin

for k:=1 to 9 do

begin

a:=k*i;

if k >= 9

then WriteLn(a,'|')

else Write(a,'|')

end;

end;

END.

Программа: Поиск 2-значных чисел сумма кв. цифр которых делится на 13

Задача: Найти все двузначные числа сумма квадратов цифр которых делится на 13

PROGRAM chislo;

var i,skv,w,q :integer;

BEGIN

for i:=10 to 99 do

begin

w:=i div 10;

q:=i mod 10;

skv:=sqr(w)+sqr(q);

if skv mod 13=0

then WriteLn (w,q);

end;

END.

Программа: Сложение четырех чисел больше пяти

Задача: Ввести четыре числа вещественных числа, и сложить те числа, которые больше пяти

PROGRAM vesh_chiso;

var a,b,c,d,a1,b1,c1,d1 :real;

BEGIN

WriteLn ('Введите 4 вещественных числа по порядку:');

ReadLn (a,b,c,d);

if a>5 then a1:=a else a:=0;

if b>5 then b1:=b else b:=0;

if c>5 then c1:=c else c:=0;

if d>5 then d1:=d else d:=0;

WriteLn ('Сумма чисел больше 5 равна: ',a,' + ',b, ' + ' ,c, ' + ' ,d, ' = ' ,a+b+c+d);

END.