Паскаль 1-Дано : массив целых чисел А[N]. Проверьте , есть ли в нем элементы равные нулю. Если есть, то найдите номер первого из них, те наименьшее i, при котором А[i]=0, иначе выведите сообщение. 2- Из заданной строки выбрать и напечатать все слова начинающиеся с буквы "А".
1) program gt; var a:rray[1..10000]of integer; n,i,q,l:integer; begin read(n); q:=0; for i:=1 to n do begin read(a[i]); if(a[i]=0)then begin q:=q 1; if(q=1)then l:=i; end; end; if(q>1)then writeln(l) esle writeln('false'); end; 2) program gt; var s,a:string; b:array[1..100]of string; l,i,k:integer; begin readln(a); l:=length(a); k:=0; for i:=1 to l do begin if(a[i]=' ')then begin k:=k 1; b[k]:=s; s:=''; end; if(a[i]<>' ')then s:=s a[i]; end; for i:=1 to k do begin if(b[i][1]='a')then writeln(b[i]); end; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.