Var a:array[1..N] of integer;
z,i:integer;
Begin
ClrScr;
writeln ('Vvedute elementu masiva ');
for i:=1 to n do
read(A[i]);
writeln;
z:=0;
for i:=1 to n do
if ((A[i] mod 2=0)and(A[i] mod 4<>0)) then z:=z+1;
writeln ('Kolichestvo parnux elementov ',z);
Readkey;
end.
Задано одновимірний масив А[1:n] дійсних чисел. Складіть програму, що підраховує кількість елементів масиву, які більше 5, та добуток елементів, які менше 2.
Program rabota5c;
Uses crt;
const n=5;
Var a:array[1..N] of real;
X,z:real;
I:integer;
Begin
ClrScr;
writeln ('Vvedute elementu masiva ');
for i:=1 to n do
read(A[i]);
writeln;
x:=0;z:=1;
for i:=1to n do
begin
if A[i]>5 then x:=x+1;
if A[i]<2 then z:=z*A[i];
end;
writeln ('Symma elementov masiva kotorue bol6we 5= ',x:4:2);
writeln ('Proizvedenie elementov masiva kotorue men6we 2= ',z:4:2);
Readkey;
end.
Задано одновимірний масив А[1:n] дійсних чисел. Складіть програму, що підраховує кількість елементів масиву, значення яких співпадають з їх індексами.
Program rabota5d;
Uses crt;
const n=9;
Var a:array[1..N] of real;
X:real;
I:integer;
Begin
ClrScr;
writeln ('Vvedute elementu masiva ');
for i:=1 to n do
read(A[i]);
writeln;
x:=0;
for i:=1to n do
if A[i]=i then x:=x+1;
writeln ('Kolichestvo elementov masiva kotorue sovpodajyt s indeksom',x);
Readkey;
end.
6. Скласти програму обробки двовимірного масиву.
Задано двовимірний масив дійсних чисел
.
Складіть програму підрахунку кількості
рядків, в яких є нульові елементи.
Program rabota6a;
Uses crt;
const n=4;
m=3;
Var a:array[1..N,1..M] of real;
X:real;
I,j:integer;
Begin
ClrScr;
for i:=1to n do
begin
writeln('Vvedite stolbec nomer',i);
for j:=1 to m do
readln (A[i,j]);
end;
x:=0;
for j:=1 to m do begin
i:=0;
repeat
i:=i+1;
if A[i,j]=0 then x:=x+1;
until ((A[i,j]=0)or(i=n));
end;
writeln ('Kolichestvo strok masiva v kotorux est6 nylevue elementu x=',x);
Readkey;
end.
Задано двовимірний масив дійсних чисел . Обчислите суму максимальних значень першого та останнього рядку масиву.
Program rabota6b;
Uses crt;
const n=4;
m=3;
Var a:array[1..N,1..M] of real;
z,A1max,AMmax:real;
I,j:integer;
Begin
ClrScr;
for i:=1to n do
begin
writeln('Vvedite stolbec nomer',i);
for j:=1 to m do
readln (A[i,j]);
end;
A1max:=A[1,1];
for i:=2 to n do
if A[i,1]>A1max then a1max:=A[i,1];
AMmax:=A[1,m];
for i:=2to n do
if A[i,m]>AMmax then AMmax:=A[i,m];
z:=A1max+AMmax;
writeln ('Symma maksimal6nux znachenij pervogo i poslednego ryadka z=',z:3:2);
Readkey;
end.
Задано двовимірний масив дійсних чисел . Знайдіть номер рядку, в якому сума квадратів елементів мінімальна.
Program rabota6b;
Uses crt;
const n=4;
m=3;