65 . pascal abc. дан массив размером n×n, элементы которого целые числа. вывести на экран элементы, расположенные под главной и под побочной диагональю. при решении использовать двумерный массив.

148

463

Посмотреть ответы 2

Ответы на вопрос:

ppaulineppauline

Информатика

4,8(37 оценок)

если я правильно понял, то

var a: array of array of integer;

n,i,j: integer;

begin

write('введите n: ');

readln(n);

setlength(a,n);

for i: =0 to n-1 do setlength(a[i],n);

for i: =0 to n-1 do

for j: =0 to n-1 do a[i,j]: =random(n)*2;

writeln('вывод матрицы : ');

for i: =0 to n-1 do begin

writeln;

for j: =0 to n-1 do write(a[i,j],' ');

end;

writeln;

writeln('главная диагональ : ');

for i: =0 to n-1 do for j: =0 to n-1 do if (i-j=0) then write(a[i,j],' ');

writeln;

writeln('побочная диагональ : ');

for i: =0 to n-1 do for j: =0 to n-1 do if (i+j=n-1) then write(a[i,j],' ');

readln;

end.

fedosovdenis28

Информатика

4,6(47 оценок)

Для подсчёта слов в предложении, вот код: program slova; var s: string; r,i: integer; begin writeln('введите ваше предложение'); readln(s); s: =s+' '; for i: =1 to length(s)-1 do if (s< > ' ') and (s[i+1]=' ') then r: =r+1; writeln('в предложении ',r, ' слов. '); readln; end. какая буква встречается чащеprogram bykv; var s: string; i,k1,k2: byte; begin write('введите строку: '); readln(s); for i: =2 to length(s)-1 do if s[i]=s[1] then inc(k1) else if s[i]=s[length(s)] then inc(k2); writeln('первая буква встречается ',k1); writeln('последняя буква встречается ',k2); writeln('вывод: '); if k1> k2 then writeln('первая буква встречается чаще') else if k1< k2 then writeln('последняя буква чаще') else writeln('одинаково'); readln; end. изменить слово петя на иван в строке program test; var s,t,z,p: string; j: integer; begin writeln('введите ваше предложение'); readln(s); write('введите слово которое хотите заменить: '); readln(t); write('введите замену слову: ', t, ' < > '); readln(z); if pos(t,s)< > 0 then j: =pos(t,s); p: =copy(s,1,j-1); p: =p+z; p: =p+copy(s,j+length(t),length(s)); writeln(p); readln; end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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