Lakers

наоборот, break- выход из цикла а exit из программы. uses crt; const n=10; var a:array [1..n] of integer; b:array [1..n] of real; kr,summa,summa1,s1,max,min,minim,i,s,x,t,j,i_max,i_min,i_i:integer; sr,sred:real; flag:byte; procedure vvod; begin writeln ('vvedite cifri'); for i:=1 to n do readln (a); end; procedure srednii; begin vvod; s:=0; for i:=1 to n do s:=s+a; sr:=s/n; for i:=1 to n do begin b:=a-sr; write (b:0:3); end; end; procedure ravno; var ind:integer; begin vvod; s:=0; for i:=1 to n do s:=s+a; sr:=s/n; ind=1; for i:=2 to n do if abs(a[ind]-sr) write ('indeks elementa raven: ',i,'-e'); end; procedure minimalnii; var min:integer; begin vvod; min=32767; for i:=1 to n do if (a>0)and(a write ('minimalnii polozhitelnii element raven', min); end; procedure summaa; begin vvod; s1:=0; i=1; while (a>0)and(i<=n) do begin s1:=s1+a; inc(i); end; writeln ('summa ravna: ', s1); end; procedure swap; var w:integer; begin vvod; max:=1; for i:=1 to n do if a>a[max] then max:=i; i=1; while (a>0)and(i<=n) do inc(i); if i<=n then begin w:=a[max]; a[max]:=a; a:=w; end; for i:=1 to n do write (a); end; procedure last; begin vvod; summa1:=0; for i:=1 to n-1 do for j:=1 to n-i do if a[j]>a[j+1] then begin x:=a[j]; a[j]:=a[j+1]; a[j+1]:=x; end; for i:=2 to n-1 do summa:=summa+a; sred:=summa/(n-2); write ('summa ravna: ', sred); end; begin clrscr; flag:=0; repeat writeln('1.vichet srednego'); writeln('2.znachenie blizkoe k srednemu'); writeln('3.minimum sredi polozhitelnih'); writeln('4.summa do pervogo otricatelnogo'); writeln('5.swap max and first otricatelnii'); writeln('6.srednee bez max and min'); writeln('0.exit'); write ('vvedite nomer: '); readln (kr); case kr of { 1:srednii; 2:ravno; 3:minimalnii;} 4:summaa; 5:swap; 6:last; 0:exit; end; flag:=1 until flag=0; end.

пхд пути неправильные.

uses crt; var a,x:integer; begin clrscr; readln(x); while x>0 do begin a:=a+(x mod 10); x:=x div 10; end; writeln(a); readkey; end.

nefi А чтобы стать хорошим прогером нужно быть разносторонним...а иначе ни как=)

я предбочитаю писать все в нижнем регистре(ну конечно кроме тех случаеш когда это требует язык). сдвиги делаю только в относительно больших(когда в экран целиком не входит) и многоуровневых циклах.коментарии не пишу, ибо редко использую свой старый код.название переменных и функций не отражает их содержания, выбираю самые короткие названия чтобы печатолось быстрее.а если здвиги делаю то предпочитаю такие как у Dik'а.

Эсуперзамок". секретный замок для сейфа состит из 10 расположенных в ряд ячеек,в которые надо вставить игральные кубики. Но,дверь открывается только в том случае,когда в любых соседних трёх ячейках сумма точек на передних гранях кубиков равно 10.(игральный кубик имеет на каждой грани 1 до 6 точек.) напишите программу,которая разгадывает код замка при условии,что два кубика уже вставлены в ячейку. uses crt; var c:array[1..10]of integer; i:integer; begin clkrscr; write('введите первый элемент: ');readln(c[1]); write('введите второй элемент: ');readln(c[2]); for i:=3 to 10 do c=10-c[i-1]-c[i-2]; writeln('КОД:'); for i:=1 to 10 do write(c,' '); readkey; end;

Рина ага на третий...а ты на какой, и на какой специальности? *110 Я, конечно, все понимаю, но подобную переписку, кто на каком курсе и т.д. и т.п. ведите в личке // CustomS

Рина ага ЭТФ=)а ты тоже ВСГТУ?

nefi ну я даж и незнаю...он несказал что пойдет

плюс то оставь

Viper ваще нечайно кавычку поставилюююубери ёё вот так будет while c<>0 do i:=i+1;

а ты подпиши в начале программы uses crt;

Viper var c:array[1..11]of integer; i:integer; begin clrscr; for i:=1 to 10 do begin write('C[',i,']= ');readln(c); end; c[11]:=0; i:=1; while c<>'0 do i:=i=1; if i<11 then writeln('элемент № ',i) else writeln('нет такого'); readkey; end. MAZoX var c:array[1..7]of integer; i,s:integer; begin clrscr; s:=1; for i:=1 to 10 do begin write('C[',i,']= ');readln(c); s:=s*c; end; writeln('Произведение равно: ', abs(s)); readkey; end.

чили в супе. пряники с чили. конфеты с чили. а если неакуратно держать бутылку пока будеш наносить чили на все э то то и чай с чили=)

Экспромт..... max,i,n,k:integer; function pro(i:integer):boolean; begin if ((a[i][1]=a[i][2])and(a[i][3]=a[i][4]))or ((a[i][3]=a[i][2])and(a[i][1]=a[i][4]))then pro:=true else pro:=false; end; begin clrscr; write('Введите кол-во четырехугольников'); readln(n); for i:=1 to n do begin write('сторона 1: ');readln(a[i][1]); write('сторона 2: ');readln(a[i][2]); write('сторона 3: ');readln(a[i][3]); write('сторона 4: ');readln(a[i][4]); end; max:=-1; for i:=1 to n do begin if pro(i) then begin k:=k+1; if a[i][1]+a[i][2]+a[i][3]+a[i][4]>max then max:=a[i][1]+a[i][2]+a[i][3]+a[i][4]; end; end; writeln('количество прямоугольников: ',k); writeln('максимальный периметр: ',max); readkey; end. var a[1..100][1..4]of integer;

Кирпич(мабила) - смотрите на выставке "технологии древних людей". Паскаль

у тебя n описана?

плата за внутренний трафик - создай деньги из ничего. свиной грип

Анекдот - подними настроение. Совесть

новая панацея "таблетка"- лечит все: грип(все виды), программы(от вирусов), психику(в состав входит морфий). финики

ежик - иголки природного происхождения. скрепки(концелярские)

футболка - не будь нудистом, будь полу нудистом. коврик для мышки

СВД (снайперская винтовка Драгунова) - тоже способ. пельмени