В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
LipskiyTimur
LipskiyTimur
12.11.2021 17:01 •  Информатика

Спрограммированием на бэйсике, ! дана матрица целых чисел x (n, m). упорядочить её строки по возрастанию их минимальных элементов. вывести исходную и полученную матрицы. значения буквенных переменных и элементов матрицы задавать с клавиатуры.

Показать ответ
Ответ:
nazirakmtv
nazirakmtv
02.05.2023 23:03
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

var 
 n:integer;
 a:array[1..100] of integer;
begin
 write('Введите размер массива (n<100): ');readln(n);
 var max:=0;
 var min:=101;
 for var i:=1 to n do
 begin
  a[i]:=random(0,100);
  write(a[i],' ');
  if i mod 2=1 then
   if a[i]>max then max:=a[i]
   else
    if a[i]<min then min:=a[i];
 end;
 writeln;
 writeln('Максимальный - ',max);
 writeln('Минимальный - ',min);
 writeln('Cумма максимального и минимального - ',max+min);
 readln;
end.

Пример:

Введите размер массива (n<100): 10
22 6 51 84 46 66 10 36 14 52                   // рандомная генерация
Максимальный - 51
Минимальный - 10
Cумма максимального и минимального - 61
0,0(0 оценок)
Ответ:
logan8
logan8
31.08.2021 01:53
Program vtor_bukva;

var
  S: String;

begin
  Writeln('введите исходное предложение: ');
  Readln(s);
  delete(s, pos(' ', s), 1);
  write('Последняя буква второго слова=');
  if pos(' ', s) <> 0 then write(s[pos(' ', s) - 1])
  else write(s[length(s)]);
  readln(s);
end.

Твоя программа выводит символ, стоящий перед ПЕРВЫМ пробелом. А нужно, чтобы выводила символ, стоящий перед вторым пробелом. Не стоит забывать, что второго пробела может и не быть. Так что, я удаляю первый пробел. А потом делаю проверку: есть ли ещё пробелы (if pos(' ', s) <> 0)? Если пробелы есть, то программа выводит букву, следующую перед вторым пробелом (или последнюю букву второго слова). Если пробелов нет (всего два слова в предложении было введено), то программа выводит последнюю букву (s[length(s)]). Если что-то не понятно, в лс.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота