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.

4. Задано двовимірний масив дійсних чисел . Визначте, чи є в масиві рядок, добуток елементів якого додатній.

Program rabota6d;

Uses crt;

const n=4;

m=3;

Var a:array[1..N,1..M] of real;

z,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;

j:=0;

repeat

z:=1;

for i:=1 to n do

z:=z*A[i,j];

if z>0 then

writeln ('Da, v masive est6 takoj ryadok v kotorom umnogenie elementov pologitel6nij');

j:=j+1;

until((z>0)or(j=m+1));

if z<0 then

writeln('Net, v masive nety takogo ryadka v kotorom umnogenie elementov pologitel6nij');

Readkey;

end.

7. Скласти програму обробки рядків.

1. Складіть програму, яка в заданому рядку символів замінює всі букви «а» на «с».

Program rabota7a;

uses crt;

var s:string;

a:char;

i:integer;

begin

ClrScr;

writeln ('Vvedute ctroky latinskimi bykvami ');

readln(s);

i:=0;

repeat

i:=i+1;

if s[i]='a' then s[i]:='c';

until i=length(s);

writeln('Stroka imeet vid: ',s);

readkey;

end.

2. Складіть програму, яка в заданому рядку символів видаляє всі коми.

Program rabota7b;

uses crt;

var s1,s2:string;

i:integer;

begin

ClrScr;

writeln ('Vvedute ctroky latinskimi bykvami ');

readln(s1);

i:=0;

s2:='';

repeat

i:=i+1;

if s1[i]<>',' then s2:=s2+s1[i];

until i=length(s1);

writeln('Stroka imeet vid: ',s2);

readkey;

end.

3. Складіть програму, яка перевіряє, чи виконується у даному рядку баланс дужок.

Program rabota7c;

uses crt;

var s:string;

x,y,i:integer;

begin

ClrScr;

writeln ('Vvedute ctroky ');

readln(s);

i:=0;

x:=0;

y:=0;

repeat

i:=i+1;

if s[i]='(' then x:=x+1;

if s[i]=')' then y:=y+1;

until i=length(s);

if x=y then writeln('Bolans ckobok vupolnyaetsa')

else writeln('Bolans ckobok ne vupolnyaetsa');

readkey;

end.

4. Складіть програму, яка в заданому рядку символів видаляє всі крапки та подвоює пропуски.

Program rabota7d;

uses crt;

var s1,s2:string;

i:integer;

begin

ClrScr;

writeln ('Vvedute ctroky latinskimi bykvami ');

readln(s1);

i:=0;

s2:='';

repeat

i:=i+1;

if s1[i]<>'.' then s2:=s2+s1[i];

if s1[i]=' ' then s2:=s2+' ';

until i=length(s1);

writeln('Stroka imeet vid: ',s2);

readkey;

end

8. Скласти програму з використанням файлів даних.

1. Дано текстовий файл f компоненти якого є цілими числами. Написати програму, яка визначає суму непарних чисел серед компонент файлу.

Program rabota8a;

Uses Crt;

Var x,z: integer;

f: text;

s:string;

Begin

ClrScr;

Assign (f,'c:\text.txt');

writeln ('Vvedite chisla cherez probel');

readln(s);

Rewrite(f);

write(f,s);

close(f);

reset(f);

z:=0;

repeat

read(f,x);

if x mod 2<>0 then z:=z+x;

until EOF(f);

close(f);

write('Symma neparnux chisel: ',z);

Readkey;

end.

2. Дано текстовий файл f компоненти якого є цілими числами. Написати програму, яка визначає кількість квадратів непарних чисел серед компонент файлу.

Program rabota8b;

Uses Crt;