Подсчитать как изменится среднее арифметическое элементов матрицы, если во
всех столбцах с номерами, большими, чем номер столбца с максимальным количе-
ством отрицательных элементов, заменить все отрицательные эл-ты их модулями.
}

uses
_19b_mod,
CRT;

BEGIN
ClrScr;

Writeln('Задача 19b');...

Подробнее...

 
Изменить заданную прямоугольную матрицу так, чтобы на первом месте стояла
строка максимальной а на последнем месте строка с минимальной суммой
элементов, сохранив все элементы исходной матрицы.


}

uses CRT;

CONST
MAXIM = 20;

TYPE
matrix_2 = array[1..MAXIM, 1..MAXIM] of real;

VAR
M,N : integer;
A,B...

Подробнее...

 
Задача: составить программу для определения на факт вхождения заданного символа в введенную строку.

 



Решение:
Поиск символа в строке

01 Uses Crt;
02 Var
03 t,s: String;
04 i: Integer;
05 otvet: Boolean;
06 Begin
07 ClrScr;
08 Writeln('Введите строку:');
09 Readln(t);
10 Write('Введите символ поиска: ')
11...

Подробнее...

 
Задача: пользователь вводит с клавиатуры текст (набор символов), после чего ему предлогается подсчитать сколько раз встречается в данном тексте символ S. S вводится с клавиатуры.



Решение:
Подсчет заданного символа в тексте
?01 Uses Crt;
02 Var
03 tekst: String[30];
04 n,i: Integer;
05 s: String...

Подробнее...

 
Еще статьи...