program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.
программу проверил все работает
Ответ дал: Гость
var
x : array [1..15] of integer;
i : integer;
min : integer;
kol_nol : integer;
begin
kol_nol : = 0;
for i: =1 to 15 do
begin
write ("введите элемент массива: ");
readln(x[i]);
end;
min : = x[1];
for i : = 0 to 15 do
begin
if (x[i] > 0) then
begin
if (x[i] < min) then
begin
min : = x[i];
end;
end;
if (x[i] = 0) then
begin
inc(kol_nol);
end;
writeln(min);
writeln(kol_nol);
end;
Ответ дал: Гость
var a,b,c,d,x,res: integer;
begin
readln(x);
a: =x div 1000;
b: =x mod 10;
c: =x div 100 mod 10;
d: =x mod 100 div 10;
res: =a+b+c+d;
writeln(res);
readln;
end.
Ответ дал: Гость
Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.
Популярные вопросы