От этого зависит годовая оценка по информатике) это в паскале с строк дано предложение. определить, есть ли в нем буква «а». в случае положительного ответа найти порядковый номер первой из них.
127
358
Ответы на вопрос:
var s: string; begin write('введите предложение'); readln(s);
if pos('a', s)> 0 writeln(pos('a',s)) else writeln('буквы "а" в предложении нет'); end.
// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! type exams=record fam: string; nam: string; ball: =new integer[4]; end; begin var ls: =new list< exams> ; var b: exams; // буфер readlines('marks.csv') .foreach(t-> begin var a: =t.towords(','); (b.fam,b.nam): =(a[0],a[1]); b.ball: =a[2: ].select(q-> q.tointeger).toarray; ls.add(b) end); var n: =ls.count; // а var m: =arr(0,0,0,0); var c: =ls.select(t-> t.ball); foreach var d in c do for var i: =0 to 3 do m[i]+=d[i]; writeln('средние по предметам: ', m[0]/n: 0: 1,', ',m[1]/n: 0: 1, ', ',m[2]/n: 0: 1,', ',m[3]/n: 0: 1); // б var max: =ls.select(t-> t.ball.sum).max; writeln(newline,'максимальная сумма ',max); // в writeln(newline,'учащиеся, набравшие максимальную сумму : '); ls.where(t-> t.ball.sum=max).select(t-> t.fam+' '+t.nam) .orderby(t-> t).println(newline); // г writeln(newline,'получили хотя бы одну двойку: '); ls.where(t-> t.ball.any(t-> t=(t-> t.fam+' '+t.nam) .orderby(t-> t).println(newline) end. пример: средние по предметам: 3.3, 3.3, 4.0, 2.0 максимальная сумма 13 учащиеся, набравшие максимальную сумму : алескеров имран бармин владимир получили хотя бы одну двойку: александрова маргарита алескеров имран бармин владимир замечание: в pascalabc.net 3.3 динамические массивы реализованы с списков, поэтому было принято решение использовать именно список, позволяющий не знать заранее размера массива и добавлять элементы по мере необходимости. если возникнет причуда иметь данные именно в массиве, перед end. добавьте строку var x: =ls.toarray; - она создаст из списка массив х.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
mahamde28.02.2022 11:50
-
Matveykaka04.09.2020 08:26
-
barbi1805.10.2022 23:05
-
RSL114.02.2021 05:24
-
llamina25.01.2022 19:42
-
Kojjd10.02.2020 01:26
-
xxxtentacionxxx127.04.2021 23:36
-
Anonim167828.08.2022 09:33
-
LightMAN201719.05.2020 06:39
-
marinabelousov221.07.2021 09:38
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.