var
a, m : integer;
begin
writeln('введите 8 чисел');
read(m);
for var i := 2 to 8 do begin
read(a);
if a > 0 then if a < m then m := a;
end;
writeln('наименьшее из чисел = ', m);
end.
0 не учитывается, если 0 тоже считать как положительное число то
"if a > 0" нужно заменить на "if a >= 0"
Ориентированный граф (кратко орграф) — (мульти) граф, рёбрам которого присвоено направление. Направленные рёбра именуются также дугами, а в некоторых источниках и просто рёбрами.
Писал на PascalABC.NET, но постарался как можно ближе к Turbo сделать. Если не заработает - пишите, исправим:)
var
f : text;
i : integer;
s, j: string;
begin
Assign(f, 'in.txt');
Reset(f);
while not EOF(f) do
begin
readln(f, s);
for i := 1 to length(s) do
if ((s[i] = 'a') and ((length(s) < length(j)) or (j = ''))) then
j := s;
end;
writeln(j);
end.
#include <iostream>
using namespace std;
int main() {
int s = 0, i = 20;
while(i < 100) {
s+=i;
i++;
}
cout << s << endl;
}
Вот так задача решается без массивов:
program score;
var a,b,c,d,sc:integer;
res:integer;
begin
write('Input 1st exam score:');
readln(a);
write('Input 2nd exam score:');
readln(b);
write('Input 3rd exam score:');
readln(c);
write('Input 4th exam score:');
readln(d);
write('Input pass score:');
readln(sc);
if (a+b+c+d) <sc then writeln ('NOT PASSED') else writeln('PASSED');
<span>end.</span>
