Массив предназначен для хранения значенийи ростов 12 человек . с датчика случайнях чисел заполнить массив значениями, лежащими в диапозоне от 163 до 190 включительно. вывести данный массив на экран.
Var mass:array[1..12] of integer; i:integer; begin randomize; for i:=1 to 12 do begin mass[i]:=163+random(28); writeln('рост ',i,' =',mass[i]); end; end.
Пример работы: рост 1 =167 рост 2 =168 рост 3 =186 рост 4 =167 рост 5 =170 рост 6 =170 рост 7 =173 рост 8 =175 рост 9 =168 рост 10 =179 рост 11 =174 рост 12 =188
Var s:string; n,k,i:integer; begin for n:=1 to 2 do begin writeln('Введите строку ',n,':'); readln(s); k:=0; for i:=1 to length(s) do begin case s[i] of '[': k:=k+1; ']': k:=k-1; end; end; if k=0 then writeln('В строке ',s,' количество [ и ] одинаково') else writeln('В строке ',s,' количество [ и ] не одинаково'); end; end.
Пример: Введите строку 1: c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково Введите строку 2: Просто [ пример ]] со [[ скобками В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
Var x, i, h1, h2, h3, h4, h5, h6, s1, s2: integer; begin readln (x); h1 := x div 100000; h2 := x mod 100000 div 10000; h3 := x mod 10000 div 1000; h4 := x mod 1000 div 100; h5 := x mod 100 div 10; h6 := x mod 10; s1 := h1 + h2 + h3; s2 := h4 + h5 + h6; if (s1 = s2) then writeln('Счастливый') else writeln('Несчастный:)'); readln; end.
Вот, ошибка в целочисленном делении) Советую такое на листочке расписывать: 123321 и обводить что нужно взять, что в каком порядке откидывать...)
i:integer;
begin
randomize;
for i:=1 to 12 do begin
mass[i]:=163+random(28);
writeln('рост ',i,' =',mass[i]);
end;
end.
Пример работы:
рост 1 =167
рост 2 =168
рост 3 =186
рост 4 =167
рост 5 =170
рост 6 =170
рост 7 =173
рост 8 =175
рост 9 =168
рост 10 =179
рост 11 =174
рост 12 =188