Задание:
Паскаль 1-Дано: массив целых чисел А[N]. Проверьте, есть ли в нем элементы равные нулю. Если есть, то найдите номер первого из них, те наименьшее i, при котором А[i]=0, иначе выведите сообщение. 2- Из заданной строки выбрать и напечатать все слова начинающиеся с буквы «А» .
Решение:
1) program gt; var a: rray[1… 10000]of integer; n,i,q,l: integer; beginread (n); q: =0; for i: =1 to n dobeginread (a[i]); if (a[i]=0) then beginq: =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; beginreadln (a); l: =length (a); k: =0; for i: =1 to l dobeginif (a[i]=') then begink: =k+1; b[k]: =s; s: ='; end; if (a[i]<>') then s: =s+a[i]; end; for i: =1 to k dobeginif (b[i][1]='a') then writeln (b[i]); end; end.
Знаете другой ответ?