Паскаль 1-дано : массив целых чисел а[n]. проверьте , есть ли в нем элементы равные нулю. если есть, то найдите номер первого из них, те наименьшее i, при котором а[i]=0, иначе выведите сообщение. 2- из заданной строки выбрать и напечатать все слова начинающиеся с буквы "а".

153

443

Посмотреть ответы 2

Ответы на вопрос:

RafSW

Информатика

4,6(31 оценок)

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.

povarnicyna106

Информатика

4,7(86 оценок)

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