Ура! Саша Вилкин празднует день рождения и по такому поводу принёс в школу конфеты. Раздав всем N одноклассникам по конфете, Саша обнаружил, что у него осталась лишь одна, которую он хочет отдать своему лучшему другу — Саше Ложкину (как же часто их дразнят из-за схожести имен... Если Саша Вилкин отдаст последнюю конфету другу, то одноклассники начнут дразнить его ещё больше, а он очень этого не хочет! По этой причине Саша предложил одноклассникам определить «счастливчика» по считалочке. В кругу стоят N школьников, пронумерованных с единицы по часовой стрелке. Саша знает M считалочек, притом i-я из них содержит в себе mi тактов. Считать считалочку он начинает со школьника под номером 1 и идёт по часовой стрелке. Саша Вилкин хочет, чтобы последняя конфета досталась Саше Ложкину, который стоит под номером Саше Вилкину выбрать нужную считалочку. Саша уверен, что знает достаточно считалочек, поэтому найдётся по меньшей мере одна, которая удовлетворит условию задачи. Формат ввода В первой строке даны три целых положительных числа через пробел: N, M, K — количество школьников, количество считалочек, которые знает Саша Вилкин, и номер, под которым стоит Саша Ложкин, соотвественно. Во второй строке записаны M целых положительных чисел mi — количество тактов в считалочке под номером i. Формат вывода Выведите единственное число — номер считалочки, которую стоит выбрать Саше Вилкину, чтобы последняя конфета досталась его другу. Нумерация считалочек начинается с 1. Если подходят несколько считалочек, выведите ту, у которой номер наименьший.
Ответы
I,j,k:integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]mod 2<>0 then k:=k+1;
writeln('Количество нечетных ',k);
end.
Тестовое решение:
10 -1 -1 3 5 -3 -6 -1 2 8
-5 -5 -3 -1 3 -8 -1 -1 -6 -2
2 -3 5 0 -1 -4 0 3 7 -8
-6 5 6 3 -8 -6 -4 10 -3 0
-5 -4 2 -6 -10 -2 -1 3 5 -7
2 -10 2 10 -8 2 4 9 -6 -1
7 1 3 -1 3 0 0 4 -3 -1
7 -1 -8 4 -8 -5 6 1 0 -9
7 8 9 3 0 -6 -8 6 0 0
0 -3 6 8 4 4 4 -8 1 0
Количество нечетных 45
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]mod 2<>0 then k:=k+1;
writeln('Количество нечетных ',k);
end.
Тестовое решение:
10 -1 -1 3 5 -3 -6 -1 2 8
-5 -5 -3 -1 3 -8 -1 -1 -6 -2
2 -3 5 0 -1 -4 0 3 7 -8
-6 5 6 3 -8 -6 -4 10 -3 0
-5 -4 2 -6 -10 -2 -1 3 5 -7
2 -10 2 10 -8 2 4 9 -6 -1
7 1 3 -1 3 0 0 4 -3 -1
7 -1 -8 4 -8 -5 6 1 0 -9
7 8 9 3 0 -6 -8 6 0 0
0 -3 6 8 4 4 4 -8 1 0
Количество нечетных 45
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Придумать свою программу "Маневр"?
Автор: yusinelnik8
Викидає помилку в коді. До ть не розумію де помилка.
Автор: potemkin77
Ды дамуы.Роботтехника саласындағы соңғы жетістік-терге мысалдар келтіру.
Автор: Aleksandrovich_Mitoyan1138
Для какого из указанных значений числа x истинно выражение (x> 2) и не (x> 3)? 1)1 2)2 3)3
Автор: Бочкарева Горохова1652
Как включить микрофон в дайте ответ
Автор: vkorz594
begin
var m,n:integer;
Write('Ввведите число строк и столбцов: ');
Read(m,n);
var a:=MatrixRandom(m,n,-99,99);
var Vrow:=ArrFill(m,0);
var Vcol:=ArrFill(n,0.0);
for var i:=0 to m-1 do begin
var max:=-100;
for var j:=0 to n-1 do begin
Write(a[i,j]:4);
if a[i,j]>max then max:=a[i,j]
end;
Writeln;
Vrow[i]:=Max
end;
Writeln('Вектор из наибольших значений строк');
Vrow.Println;
for var j:=0 to n-1 do begin
var s:=a[0,j];
for var i:=1 to m-1 do s+=a[i,j];
Vcol[j]:=s/m
end;
Writeln('Вектор из средних арифметических по столбцам');
Vcol.Println
end.
Тестовое решение:
Ввведите число строк и столбцов: 5 8
-82 67 -78 27 69 -80 85 34
70 -82 -89 -30 -57 31 14 33
-4 -1 -93 -21 81 -66 48 31
58 18 -40 -63 -68 40 46 -44
85 46 31 -61 1 43 2 -94
Вектор из наибольших значений строк
85 70 81 58 85
Вектор из средних арифметических по столбцам
25.4 9.6 -53.8 -29.6 5.2 -6.4 39 -8