Const amax=20; var a: array[1..amax,1..amax] of integer; i,j,k,n,m: byte; begin write('Введите размеры массива(матрицы (<20)):'); readln(n,m); writeln('Массив(матрица):'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(99)+1; write(a[i,j]:4); end; writeln; end; writeln('Кол-во четных элементов по колонкам:'); for j:=1 to m do begin k:=0; for i:=1 to n do if odd(a[i,j])=false then inc(k); writeln('В ',j,' столбце ',k); end; writeln('Конец программы!'); end.
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в матрице:'); var n:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица[',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); for var i:=0 to m-1 do for var j:=0 to n-1 do if a[i,j].IsEven then a[i,j]:=1; Writeln('*** Результирующая матрица[',m,',',n,'] ***'); a.Println(4); end.
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int num;
cin >> num;
int sum = 0;
while (num != 0) {
int digit = num % 10;
num = num / 10;
sum += digit;
}
if (sum == 10) cout<<"YES";
else cout << "NO";
}
Объяснение:
Могу и на пятерку решить, но позже