// 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=2)).Select(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; - она создаст из списка массив х.
Программа в файле // ConsoleApplication1.cpp: определяет точку входа для консольного приложения.Дата некоторого дня характеризуется тремя натуральными числами ://g(год), m(порядковый номер месяца) и n(число).По заданным g, m//и n определить дату предыдущего дня(считать, что год не является високосным) #include "stdafx.h"#include "conio.h"#include "iostream"
int main(){ using namespace std; int n, m, g; cout << "Day "; cin >> n; cout << "Month "; cin >> m; cout << "Year "; cin >> g; if (m == 1 || m == 3 || m == 5 && m == 7 || m == 8 || m == 10 ) { if (n < 31) cout << n + 1 << "." << m << "." << g; else cout << 1 << "." << m+1 << "." << g; } if (m == 2) { if (n < 28) cout << n + 1 << "." << m << "." << g; else cout << 1 << "." << m + 1 << "." << g; } if (m == 4 || m == 6 || m == 9 && m == 11 ) { if (n < 30) cout << n + 1 << "." << m << "." << g; else cout << 1 << "." << m + 1 << "." << g; } if (m == 12) { if (n < 31) cout << n + 1 << "." << m << "." << g; else cout << 1 << "." << 1 << "." << g+1; } _getch(); return 0;}
