проверьте задачу

[Сова]

составить программу вычисления назначения функции на некотором промежутке с заданным шагом.функцию придумать

код
program mal;
uses crt;
var m,k,h:real;
f:real
begin
writeln('vvedite m');
readln(m);
writeln(vvedite k');
readln(k);
h:=0.1;
f:=sqr(m);
writeln('pri m =',m:6:2,'f(m)=',f:6:4);
m=m+h;
m:=k;
readln;
end.

[alex_fcsm]

1. Вы вычисляете только 1 значение функции - нужен цикл
2. Зачем Вам модуль crt, если Вы его никак не используете?

[Sazary]

Хотя бы синтаксические ошибки могли исправить.

program mal;
uses crt;
var m,k,h:real;
f:real;
begin
clrscr;
writeln('vvedite m');
readln(m);
writeln('vvedite k');
readln(k);
h:=0.1;
while m<=k do
 begin
 f:=sqr(m);
 writeln('pri m =',m:6:2,'  f(m)=',f:6:4);
 m:=m+h;
 end;

readln;
end.

[начинающий кодер]

Проверьте задачу почему то не работает
заменить все отрицательные элементы двухмерного массива вещественных чисел нулями и посчитать сумму положительных элементов.

	
	

			
				код
program mal;
uses crt;
var a:array[0..1,0..2] of integer;
begin
r:=0;
for i:=0 to r do;
for j:=0 to r do;
begin
if a[i,j]<0 then
a[i,j]:=0;
r:r+a[i,j];
end;
writeln (r);
readln;
end.
			
		

program mal;
uses crt;
var a:array[1..100,1..100] of integer;
    m,n,r,i,j:integer;
begin
randomize
writeln('vvedi m');
readln(m);
writeln('vvedi n');
readln(n);
r:=0;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(25)-20;
for i:=1 to m do;
for j:=1 to n do;
begin
if a[i,j]<0 then
a[i,j]:=0
else
r:=r+a[i,j];
writeln (r);
readln;
end.