Дан массив, состоящий из 10 элементов вводящихся с клавиатуры, посчитать: сколько элементов массива имеют значение меньше некоторой t?
Program massiv;
Var t,m:array [1..10] of real;
i:integer;
begin
for i:= 1 to 10 do
t:=0;
begin
writeln(‘,i,’);
readln(m);
If t>m then
t:=t+i;
writeln(‘m(‘,i,’)=’,m);
writeln(‘t=’,t);
end;
end.
Исправте пожалуйста ошибки, срочно надо
В программе написан бред.. её проще заново написать.
Program massiv;
uses crt;
Var m:array [1..10] of real;
j,t,count:integer;
begin
clrscr;
readln(t);
count:=0;
for j:= 1 to 10 do
begin
write('m[',j,']=');
readln(m[j]);
If m[j] < t then
inc(count);
end;
writeln(count);
readln;
end.
бред. я не помню паскакаля, поэтому не скажу, объявлена ли t как массив или нет,
но почему она равна 0 и почему увеличивается, вместо того чтобы быть считанной с клавы и использоваться для сравнения?
и неужели проверка t>m действительно работает?
в общем, я так скажу.
прочитай еще раз задание.
посмотри, что твоя программа делает.
выкинь ее. тут ошибки исправлять бессмысленно, она просто не верна.
напиши новую
Program massiv;
Var m:array [1..10] of real;
i,t,k:integer;
begin
write(' vvesti T '); readln(t);
k:=0;
for i:= 1 to 10 do
begin
write(‘,i,’);
readln(m [ i ] );
If t>m [ i ] then
k:=k+1;
end;
writeln(‘k= ’,k);
writeln('konec zadachi');
readln;
end.
⇢