Нужна помощь. Паскаль.

[natulika]

Нужна помощь. Паскаль.

Паскаль:

Перегнал FineReader'ом рисунок в нормальный текст.
Модератор.

1. Вводом с клавиатуры создать массив А размерностью nxm.
Установить, есть ли среди элементов первой строки элементы,
равные произвольному числу р.

2. Дан одномерный массив из п элементов. Поменять местами min и
последний элементы. Полученный массив вывести на экран

3. Дан произвольный текстовый файл. Посчитать количество запятых
в тексте.

4. Среди элементов произвольной последовательности найти
все отрицательные и вычислить их сумму.

5. Создать двумерный массив размерностью nxm. Найти
сумму всех отрицательных элементов с четными порядковыми
номерами.

6. Дана произвольная строка. Найти количество вхождений
в данную строку заданного символа. Образец для поиска вводится
с клавиатуры.

 

[shrek=)]

Первая задача:

const n=2;
m=2;
var
a:array [1..n,1..m] of integer;
i,j,p:integer;
k:boolean;
begin
k:=false;
write ('Enter p');
readln(p);
for i:=1 to n do begin
for j:=1 to m do begin
write('a[',i,',',j,']=');
read(a[i,j]);
end;
end;
for i:=1 to n do begin
if a[1,i]=p then k:=true;
end;
if k=true then write('YES') else write ('no');
readln;
readln
end.

Алгоритм не совсем оптимальный

 

[shrek=)]

Задача номер 2:

const
n=10;
var
a:array [1..n] of integer;
i,min,k,j:integer;
begin
randomize;
min:=11000;
j:=0;
for i:=1 to n do begin
a[i]:=random(100)+1;
write(a[i]:3);
if a[i]<min then begin min:=a[i]; j:=i; end;
k:=a[n];
a[n]:=min;
a[j]:=k;
end;
for i:=1 to n do
write (a[i]:5);
readln
end.

 

[shrek=)]

Третья задача:

var
f:text;
c:char;
k:integer;
begin
assign (f,'c:/1.txt');
reset(f);
c:=' ';
k:=0;
while not (eof(f)) do
begin
read (f,c);
if c=',' then inc(k);
end;
write (k);
close(f);
readln
end.

 

[shrek=)]

Задача номер 4:

const n=10;
var a:array[1..n] of integer;
i,p: integer;
begin
randomize;
p:=0;
for i:=1 to n do begin
a[i]:=random(30)-10;
write(a[i]:3);
if a[i]<0 then p:=p+a[i];
end;
write(p);
readln
end.

 

[shrek=)]

Задача номер 5:

const n=10;
m=10;
var 
a:array[1..n,1..m] of integer;
i,j,p:integer;
begin
randomize;
p:=0;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(30)-10;
write(a[i,j]:4);
if (a[i,j]<0) and (i mod 2=0) and (j mod 2=0)
then p:=p+a[i,j];
end;
writeln;
end;
write(p);
readln
end.

 

[shrek=)]

Шестая:

var s:string;
k:char;
p,i:integer;
begin
write('enter s ');
readln (s);
write('enter k ');
readln (k);
p:=0;
for i:=1 to length(s) do begin
if s[i]=k then inc(p);
end;
write (p);
readln
end.