![]()
|
|||||||
begin. fori:=1 to15 do. fori:=1 to15 do. fori:=1 to15 do. fori:=1 ton do. fori:=1 ton do. fori:=1 tolength(s)-1 do. if(s[i]='f') and(s[i+1]='b') thenbegin randomize; fori:=1 to15 do a[i]:=5-random(20);
fori:=1 to15 do ifa[i]=0 thena[i]:=sqr(i);
writeln('poluchennyj massiv'); fori:=1 to15 do write(a[i]:8:2);
readln; end. 7. Сконструируйте программу позволяющую найти максимальный и минимальный элемент одномерного массива.
programznachenie; constn=10; vara:array[1..n] ofinteger; i: integer; max,min:integer; begin randomize; fori:=1 ton do a[i]:=5-random(10);
max:=a[1]; min:=a[1];
fori:=1 ton do begin ifa[i]>max thenmax:=a[i]; ifa[i]<min thenmin:=a[i]; end;
writeln('maximum - ',max); writeln('minimum - ',min);
readln; end.
programchetvert; varx,y:real;
begin writeln('vvedite koordinaty'); readln(x,y); if(x>0) and(y>0) thenwriteln('1 chetvert'); if(x<0) and(y>0) thenwriteln('2 chetvert'); if(x<0) and(y<0) thenwriteln('3 chetvert'); if(x>0) and(y<0) thenwriteln('4 chetvert'); if(x=0) or(y=0) thenwriteln('nevernyi vvod'); readln; end.
9. Сконструируйте программу, позволяющую в данной строке символов определить, стоят ли в данной строке подряд символы f и b.
programsimvol; vars:string; i:integer;
begin writeln('vvedite stroky'); readln(s); fori:=1 tolength(s)-1 do if(s[i]='f') and(s[i+1]='b') then begin writeln('imeetsja'); break; end; readln; end.
10. Сконструируйте программу определяющую количество отрицательных элементов в массиве К(n) (n<=100) заполненном случайными числами от -15 до 15.
programznachenie; constn=10; vara:array[1..n] ofinteger; i: integer; k:integer;
|
|||||||
|