Задачa. Дано ціле число - кількість повних днів, що минули з початку року. Скільки повних тижнів минуло за цей період? Який це день тижня, якщо початок року (1 січня) припало на понеділок (вивести число від 0 до 6, де 0 - неділя, 1 - понеділок .. 6 - субота). Так було, наприклад, в 2019році.
#include
using namespace std;
int main()
{
setlocale(LC_ALL,"rus");
int n;
cout << "Введіть кількість повних днів, що минули з початку року n = ";
cin >> n;
cout << "Кількість повних тижднів - "<< n / 7< cout <<" Числа від 0 до 6, означають 0 - неділя, 1 - понеділок .. 6 - субота" < cout<< "\n День тиждня - " << n % 7<< endl;
return 0;
system("pause");
}
program matrica;
const k=10;
type vector=array[1..k]o byte; masiv=aray[1..k] o vector;
var b:masiv;
procedure vved(n:byte; var a masiv);
var i,j:byte;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=0;
for j:=round(n/2) to n do
for i:=n-j+1 to j do
a[i,j]:=random(255);
end;
proceure vuvid(n:byte;:masiv);
var i,j:byte;
begin
for i:=1 to do
begin
for j:=1 to n do
write(a[i,j]:5);
riteln;
end;
end;
procedure rahnok(n:byte; a:masiv);
var i,j:byte; s,l:byte;
begin
l:=0;
for j:=1 to round(n/2) do
for i:=j to (n-j+1) do
if (a[i,j] mod 2=0) then l:=l+1;
writeln('kilkist=' l);
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var ijv:=a.ElementsWithIndexes.Select(x->(x[0],x[1],abs(x[2])))
.MaxBy(x->x[2]);
for var i:=ijv[0] to n-2 do a.SwapRows(i,i+1);
for var j:=ijv[1] to n-2 do a.SwapCols(j,j+1);
SetLength(a,n-1,n-1); a.Println(4)
end.
Пример
Количество строк/столбцов в матрице: 5
87 -5 -38 -9 57
31 66 57 -25 40
11 66 99 -79 91
12 95 93 27 -97
33 -94 14 19 39
87 -5 -9 57
31 66 -25 40
12 95 27 -97
33 -94 19 39