Каким должен быть заголовок таблицы? 1.Максимально длинным, наиболее подробно описывающий содержимое таблицы 2.Крупным, ярким 3.Кратким и не содержащим сокращений и лишних слов
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.
#include <iostream>
#include <vector>
using namespace std;
int am_dig(int k){
int res = 0;
while(k > 0){
res++;
k /= 10;
}
return res;
}
double average(vector<double> a){
double sum = 0;
for(auto i: a)
sum += i;
return sum/a.size();
}
int main() {
vector<double> a;
double x = 1;
while(x != 0){
cin >> x;
if(am_dig(x) == 3)
a.push_back(x);
}
if(a.size() == 0)
cout << "NO";
else
cout << average(a);
}
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.