Пожалуйста,помогите решить задачи ** Pascale!1)Составить программу вычисления в двумерном...

Question

Пожалуйста,помогите решить задачи на Pascale!
1)Составить программу вычисления в двумерном массиве минимального элемента, его номера и замены его на 100
2)Записать в файл последовательность доступа n действительных чисел. Найти разность первого и последнего компонентов файла
3)Составить программу, удаляющую из предложения букву "Е"

Comments

какой класс?

---

2 курс)

---

понятно,когда нужно сделать?

---

желательно сегодня

Answer 1

Const n=7; m=8;
Var a:array[1..n,1..m] of integer;
i,j,x,y,min:integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
min:=a[1,1];
x:=1;
y:=1;
for i:=1 to n do
for j;=1 to m do 
if a[i,j]min:=a[i,j];
x:=i;
y:=j;
end;
writeln ('минимальный элемент=',min,' он находился: ',x,',',y);
a[x,y]:=100;
for i:=1 to n do begin
for j:=1 to n do 
write (a[i,j]:4);
writeln;
end;
end.

3.Var s:string;
i:integer;
begin
writeln('Введи строку');
readln (s);
for i:=1 to length(s) do
if (s[i]='Е') or (s[i]='е') then delete(s,i,1);
writeln(s);
end.

Comments

2. const n=15;
var f:file of real;
s,a:real;
i:integer;
begin
assign(f,'f.bat');
rewrite (f);
for i:=1 to n do begin
s:=21*random-10;
write(f,s);
write(s:5:3,' ');
end;
writeln;
close(f);
reset(f);
i:=0;
while not eof(f) do begin
i:=i+1;
read (f,a);
if (i=1) then s:=a;
if i=n then s:=s-a;
end;
close (f);
writeln (s:5:3);
end.

---

функция write(x:4:5) что делает?

---

о боже. выводит на экран число в форматном выводе. И запись эта не правильная. первое число всегда должно быть больше. Ибо первое число- количество знаком, отводимых для всего числа, вместе с дробной частью. Второе число - количество знаком после запятой