Ответ:
Объяснение:
#include<stdio.h>
#include<locale.h>
#include<stdlib.h>
main()
{
setlocale(LC_ALL,"RUS");
int x[15][15],i,j,n,kol=0;
printf("Введите кол-во строк и столбцов");
scanf("%d",&n);
for(i=0;i<n;i++)
for(j=0;j<n;j++)
{
printf("Введите число %d cтроки %d столбца ",i+1,j+1);
scanf(" %d",&x[i][j]);
}
system("cls");
printf("Матрица ");
for(i=0;i<n;i++)
{
printf("\n");
for(j=0;j<n;j++)
{
if(x[i][j]%5==1) kol++;
printf("%d ",x[i][j]);
}
}
printf("\nКоличество элементов матрицы которые делятся на 5 с остатком 1 = %d",kol);
}
ветвление - это выполнение той или другой последовательности действий в зависимости от выполнения какого-либо условия
например, вспомним сказку А.С. Пушкина "Руслан и Людмила", а именно действия учёного кота:
<span><em>Идет направо - песнь заводит,</em>
</span><span><em>Налево - сказку говорит</em>
алгоритм для кота:
<em>если </em>идешь направо,
</span><span> <em>то </em>пой песню,
<em> иначе </em>говори сказку</span>
<span>другой пример из жизни:
<em>если </em>сделал уроки,<em>
</em></span><span><em> то </em>отдыхай,
<em> иначе </em>делай уроки</span>
<span>и ещё пример:
<em>если </em>натуральное число делится на два без остатка,
</span><span><em> то </em>данное число чётное,
<em>иначе </em>данное число нечётное
</span>
Полный путь к каталогу приказы: С:\архив\приказы
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 7 8
*** Исходный массив [7,8] ***
88 9 -44 13 81 97 -65 -20
16 -37 -33 -34 -69 -64 12 -58
-36 -80 -99 61 -59 -86 -18 83
-77 -1 85 -41 -49 -12 43 84
-64 32 36 -85 -18 -42 49 -6
71 -13 28 33 55 -94 12 13
5 -10 -5 -27 23 -37 -48 74
--------------------------------
Program test;
const m=4;
var a:array[1..m] of byte;
i,k:byte;s:integer;
begin
s:=0;
writeln('Введите информацию о баллах видов спорта');
for i:=1 to m do
begin
write(' ',i,'-й вид спорта:');
readln(a[i]);
s:=s+a[i];
end;
write('Введите общее количество баллов по 10 видам спорта:');
readln(k);
if s>k
then
writeln('Спортсмен проходит в следующий тур')
else
writeln('Спортсмен не проходит в следующий тур');
<span>end. </span>
