#include <iostream>
using namespace std;
void findDayOfWeek(int day) {
switch (day) {
case 1:
cout << "Понедельник";
break;
case 2:
cout << "Вторник";
case 3:
cout << "Среда";
case 4:
cout << "Четверг";
case 5:
cout << "Пятница";
case 6:
cout << "Суббота";
case 7:
cout << "Воскресенье";
default:
findDayOfWeek(day - 7);
}
int main() {
setlocale(0, "RU");
int day;
cin >> day;
findDayOfWeek(day);
return 0;
1.
var a:array[1..6]of integer;
i,k:integer;
begin
k:=0;
write('Массив: ');
for i:= 1 to 6 do
a[i]:= random(5);
write(a[i]:4);
if a[i]=4 then k:=k+1
end;
writeln;
if k=0 then writeln ('В массиве нет элементов равных 4')
else writeln('Количество элементов равных 4 равно ',k)
end.
2.
var a:array[1..6,1..6]of integer;
b:array[1..36]of integer;
i,j,k,z,y,m:integer;
writeln('Массив A ');
for j:= 1 to 6 do
a[i,j]:= random(51);
write(a[i,j]:3);
k:=1;
for z:=1 to 6 do
for y:=1 to 6 do
if (z<>i) and (y<>j) and (a[i,j] = a[z,y]) then
b[k]:=a[i,j];
k:=k+1
writeln('Массив B ');
for i:= 1 to k-1 do write (b[i]:3);
m:=b[1];
for i:= 2 to k-1 do if b[i]>m then m:=b[i];
writeln('Максимум среди элементов повторившихся более одного раза в массиве А равен ',m);
Объяснение:
В массиве B во второй задаче находятся повторяющиеся элементы массива А.
#include <iostream>
using namespace std;
void findDayOfWeek(int day) {
switch (day) {
case 1:
cout << "Понедельник";
break;
case 2:
cout << "Вторник";
break;
case 3:
cout << "Среда";
break;
case 4:
cout << "Четверг";
break;
case 5:
cout << "Пятница";
break;
case 6:
cout << "Суббота";
break;
case 7:
cout << "Воскресенье";
break;
default:
findDayOfWeek(day - 7);
}
}
int main() {
setlocale(0, "RU");
int day;
cin >> day;
findDayOfWeek(day);
return 0;
}
1.
var a:array[1..6]of integer;
i,k:integer;
begin
k:=0;
write('Массив: ');
for i:= 1 to 6 do
begin
a[i]:= random(5);
write(a[i]:4);
if a[i]=4 then k:=k+1
end;
writeln;
if k=0 then writeln ('В массиве нет элементов равных 4')
else writeln('Количество элементов равных 4 равно ',k)
end.
2.
var a:array[1..6,1..6]of integer;
b:array[1..36]of integer;
i,j,k,z,y,m:integer;
begin
k:=0;
writeln('Массив A ');
for i:= 1 to 6 do
begin
for j:= 1 to 6 do
begin
a[i,j]:= random(51);
write(a[i,j]:3);
end;
writeln;
end;
writeln;
k:=1;
for i:= 1 to 6 do
begin
for j:= 1 to 6 do
begin
for z:=1 to 6 do
begin
for y:=1 to 6 do
begin
if (z<>i) and (y<>j) and (a[i,j] = a[z,y]) then
begin
b[k]:=a[i,j];
k:=k+1
end;
end;
end;
end;
end;
writeln('Массив B ');
for i:= 1 to k-1 do write (b[i]:3);
writeln;
writeln;
m:=b[1];
for i:= 2 to k-1 do if b[i]>m then m:=b[i];
writeln('Максимум среди элементов повторившихся более одного раза в массиве А равен ',m);
end.
Объяснение:
В массиве B во второй задаче находятся повторяющиеся элементы массива А.