1) const n=8 - константа, n нельзя будет присвоить другие значения
2) <span>Type is = array [1..n] of integer; это тип с названием "is" он равен массиву</span>
<span>3) var a:is; a-имеет тип is => это массив</span>
<span>4) begin - начало программы</span>
<span>5)end. - конец программы</span>
Program ANT;
const n=6; m=6;
var i,j:integer;
var a:array [1..n,1..m] of real;
begin
writeln('Введите матрицу');
for i:=1 to n do
for j:=1 to m do begin
writeln('a[',i,',',j,']');
readln(a[i,j]);
end;
writeln('Исходная матрица');
for i:=1 to n do
for j:=1 to m do begin
writeln(a[i,j]);
writeln;
end;
u:=0;
for i:=1 to n do begin
for j:=1 to m do
if i+j=7 then u:=u+ln(a[i,j]);
end;
writeln('Среднее геометрическое',u);
max:=[1,1];
for i:=1 to n do begin
for j:=1 to m do
if (a[i,j]>max) then [i,j]:=max;
end;
writeln('Максимальное значение',max);
u:=max;
writeln('Полученная матрица');
for i:=1 to n do
for j:=1 to m do begin
writeln(a[i,j]);
writeln;
end;
end.
Число пикселей на двух страницах 2*640*800 = 1 024 000 пикселей. Поэтому объем видеопамяти = 14*1 024 000 =14 336 000 бит = 1 792 000 Байт = 1792 кБайт = 1,792 МегаБайт
Не (число<10) = (число >=10) по правилу Моргана. Получается логическая конъюнкция, где оба условия должны быть истинны.
(число >=10) И (число НЕЧЁТНОЕ)
1 3 2
1 - 2 - 3
23: 1 - 1 - 1
13: 1 - 1 - 1
9: 0 - 1 - 0
6: 0 - 0 - 0
#include "iostream"
#include "cstdlib"
#include "ctime"
using namespace std;
void z(int *m, int n, int a, int b){
srand(time(NULL)); for(int i=0;i< n;i++)m[i]=a+rand()%(b-a+1);}
int k(int *m, int n, int a, int b){
int s=0; for(int i=0;i< n;i++)s+=m[i]>=a&&m[i]<=b; return s;}
int main(){
int n,a,b,na,nb; cout<<"n: "; cin>>n; int *m=new int[n];
cout<<"a b: "; cin>>a>>b; z(m,n,a,b);
for(int i=0;i< n;i++)cout<<m[i]<<' '; cout<< endl;
cout<<"number_A number_B: "; cin>>na>>nb; cout<<"k="<< k(m,n,na,nb);
<span>delete []m; cout<<"\nPress Enter for exit\n"; cin.get(); cin.get();}</span>