решения: МАТРИЦЫ, МАССИВЫ. задачи, Фрагменты матриц. Методы сортировки Опции

[AlaRic]

Примеры решения задач...

[AlaRic]

Разбор задач:

• 14. Даны натуральное число N и последовательность A1, A2, ... An, состоящая из N целых чисел. Получить последовательность, которая отличается от исходной тем, что все нечетные элементы удвоены. Оба массива вывести на экран.
• 15. Даны натуральное число N и последовательность A1, A2, ... An. Определить количество вхождений N в данную последовательность (N – вводится с клавиатуры).
• 16. Даны натуральное число N и последовательность A1, A2, ... An. Определить наименьшее положительное среди A1, A2, ... An и найти сумму отрицательных.
• 17. Дана последовательность из 50 чисел. Найти их среднее арифметическое. Найти сколько среди них отличных от последнего числа.
• 18. Дана последовательность из N вещественных чисел. Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последовательности.
• 19. Дана последовательность из N вещественных чисел. Все элементы последовательности с четными номерами, предшествующие первому по порядку элементу с наибольшим значением, домножить на него.
• 20. Дана последовательность из N вещественных чисел. Найти номер первого вхождения данного числа в последовательность или вывести сообщение, что такого числа нет.

14. Даны натуральное число N и последовательность A1, A2, ... An, состоящая из N целых чисел. Получить последовательность, которая отличается от исходной тем, что все нечетные элементы удвоены. Оба массива вывести на экран.

program N1; 
const n=10; 
var 
   i:integer; 
   a:array[1..n] of integer; 
begin 
   for i:=1 to n do begin
	 a[i]:=random(9)+1;write(a[i],'  ');
   end;

   writeln; 
   for i:=1 to n do begin 
	 if a[i] mod 2<>0 then a[i]:=a[i]*2;
	 write(a[i],'  '); 
   end; 
   readln; 
end.

15. Даны натуральное число N и последовательность A1, A2, ... An. Определить количество вхождений N в данную последовательность (N – вводится с клавиатуры).

program N2; 
var 
   i,n,k:integer; 
   a:array[1..100] of integer; 
begin 
   write('Input n  (n<=100) -> ');readln(n); 
   k:=0; 
   for i:=1 to n do begin
	 write('-> '); readln(a[i]);
	 if a[i]=n then k:=k+1;
   end; 
   write(k); 
   readln; 
end.

16. Даны натуральное число N и последовательность A1, A2, ... An. Определить наименьшее положительное среди A1, A2, ... An и найти сумму отрицательных.

program N3; 
const n=10; 
var 
   i,min,S:integer; 
   a:array[1..n] of integer; 
begin 
   S:=0; 
   for i:=1 to n do begin
	 a[i]:=random(10)-5;
	 write(a[i],'  ');
   end; 
   min:=32767; 
   for i:=1 to n do begin
	 if a[i]>0 then
	   if a[i]<min then min:=a[i]; 
	 if a[i]<0 then S:=S+a[i]; 
   end; 
   writeln; 
   writeln('Min pol -> ',min); 
   writeln('Summ otriz -> ',S); 
   readln; 
end.

17. Дана последовательность из 50 чисел. Найти их среднее арифметическое. Найти сколько среди них отличных от последнего числа

program N4; 
uses crt; 
const n=10; 
var a:array[1..n] of integer; 
	i,S,k:integer; 
begin 
   ClrScr; 
   S:=0; k:=0; 
   for i:=1 to n do begin 
	 a[i]:=random(10)+1;
	 write('  ',a[i]);
	 S:=S+a[i]; 
   end; 

   for i:=1 to n-1 do
	 if a[i]<>a[n] then k:=k+1; 
   writeln; 
   writeln('Sred arifmet: ',(S/n):0:2); 
   writeln('Otl ot Poslednego: ',k); 
   readln; 
end.

18. Дана последовательность из N вещественных чисел. Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последовательности.

program N5;
const n=10; 
var 
	i,k:integer; 
	a:array[1..n] of real; 
begin 
   k:=0; 
   for i:=1 to n do begin
	 write('-> '); readln(a[i]);
   end;

   for i:=1 to n do
	 if a[i]=i then k:=k+1;
   write('Otvet: ',k); 
   readln; 
end.

19. Дана последовательность из N вещественных чисел. Все элементы последовательности с четными номерами, предшествующие первому по порядку элементу с наибольшим значением, домножить на него.

program N6; 
const n=10; 
var 
   a:array[1..n] of real; 
   i,k:integer; 
   max:real; 
begin 
   for i:=1 to n do begin 
	 a[i]:=random(9)+1;
	 write(a[i]:3 :1,' ');
   end;

   for i:=1 to n do
	 if a[i]>max then begin
	   max:=a[i];k:=i;
	 end;

   for i:=1 to k-1 do
	 if i mod 2=0 then a[i]:=a[i]*max; 
   writeln; 
   for i:=1 to n do write(a[i]:3 :1,' '); 
   readln; 
end.

20. Дана последовательность из N вещественных чисел. Найти номер первого вхождения данного числа в последовательность или вывести сообщение, что такого числа нет.

program N7; 
const n=10; 
var 
   a:array[1..n] of real; 
   i,k:integer; 
   r:real; 
begin 
   k:=0; 
   write('Input r -> ');readln( r ); 
   for i:=1 to n do begin
	 write('-> '); readln(a[i]); 
   end;

   for i:=1 to n do
	 if a[i]=r then begin
	   k:=i; break;
	 end;

   if k=0 then writeln('Net!') 
   else writeln('N: ',k); 
   readln; 
end.