1.напечатайте индексы всех равных элементов произвольного массива a(n; n). 2.в заданном тексте заменить последовательность символов x(i) на a(i), подсчитать количество произведенных замен. эти две необходимо решить в турбо паскале
const nn=50; var a:array [1..nn,1..nn] of integer; i,j,k,l,n:integer; begin writeln('N= '); readln(n); for i:=1 to n do for j:= 1 to n do readln(a[i,j]); writeln; writeln('Сформированный массив:'); for i:=1 to n do begin for j:= 1 to n do write(a[i,j],' '); writeln; end; writeln; writeln('Индексы равных элементов:'); for i:=1 to n do for j:= 1 to n do for k:=i+1 to n do for l:= j to n do if (a[i,j] = a[k,l]) then writeln('[',i,',',j,'] = [' ,k,',',l,']'); end.
Program pascal; var a, b, q, w, e, r, t: integer; SQR: string;begin q:=3; w:=5; e:=7; r:=9; t:=11; SQR:=SQR; writeln('Введите SQR то бы увидеть все квадраты и произведение всех квадратов'); write('Введите нечетные числа. От 3 до 11: '); read(SQR); if SQR=SQR then writeln('3*3= ', q*q); writeln('5*5= ', w*w); writeln('7*7= ', e*e); writeln('9*9= ', r*r); writeln('11*11= ', t*t); writeln('Произведения всех квадратов: ', q*q*w*w*e*e*r*r*t*t); read(a); if a=11 then writeln('Произведение квадратов: 11*11') else if a=9 then writeln('Произведение квадратов: 9*9') else if a=7 then writeln('Произведение квадратов: 7*7') else if a=3 then writeln('Произведение квадратов: 3*3') else if a=5 then writeln('Произведение квадратов: 5*5') else writeln('Доступно: 3, 5, 7, 9, 11'); end.
Поиск: чтение соответствующей литературы просмотр видео на эту тематику Сбор: выписка из предметов поиска цитирование, копирование Хранение: хранения информации зависит от ее носителя (книги в библиотеках, картина в музеях, фотографии в альбомах) если про компьютерные технологии нужно, то это может быть текстовик, презентация или прочая дребедень на флешке(компакт диске) или жестком диске компьютера. Передача: Каналы связи(интернет, телефонная связь и т.п.) Кодирующие и Декодирующие устройства, т.е. те устройства, которые превращают текст, картинку или любую другую информацию в код, а потом его "раскодирывают" по-русски расшифровывают и переводят из когда в нормальное, понятное человеку, состояние. Обработка: Обработка информации это преобразование ее из одного вида в другой. пример приведу для того, чтобы поняли: Пример - Постановка диагноза болезни Входная информация - Жалобы пациента + результаты анализов Выходная информация - Диагноз Правило - Знание + опыт врача для информатики надо взять более подходящий пример. но он может быть менее понятным... и, наконец, защита информации: защита информации = предотвращение: несанкционированного, нелегального доступа непредумышленного или недозволенного использования, изменения или разрушения информации.
1.
const nn=50;
var
a:array [1..nn,1..nn] of integer;
i,j,k,l,n:integer;
begin
writeln('N= ');
readln(n);
for i:=1 to n do
for j:= 1 to n do
readln(a[i,j]);
writeln;
writeln('Сформированный массив:');
for i:=1 to n do
begin
for j:= 1 to n do
write(a[i,j],' ');
writeln;
end;
writeln;
writeln('Индексы равных элементов:');
for i:=1 to n do
for j:= 1 to n do
for k:=i+1 to n do
for l:= j to n do
if (a[i,j] = a[k,l]) then writeln('[',i,',',j,'] = [' ,k,',',l,']');
end.
2. Недостаточно данных для решения задачи.