1. в программе описан одномерный целочисленный массив с индексами от 0 до 10. в ниже программе он сначала заполняется, а потом изменяется. выпишите элементы массива после выполнения программы: for i: =0 to 10 do a[i]: =i+1; for i: =0 to 10 do a[i]: =a[10-i];
140
179
Ответы на вопрос:
Вцикле for i: =0 to 10 do
a[i]: =i+1; элементам массива присваиваются значения 1, 2, 3, 11.итак, после выполнения первого цикла имеем массив: 1 2 3 4 5 6 7 8 9 10 11проанализируем работу второго цикла: i=0; a[0]=a[10]=11, т.е. получим: 11 2 3 4 5 6 7 8 9 10 11i=1; a[1]=a[9]=10, т.е. получим: 11 10 3 4 5 6 7 8 9 10 11 i=2; a[2]=a[8]=9, т.е. получим: 11 10 9 4 5 6 7 8 9 10 11 i=3; a[3]=a[7]=8, т.е. получим: 11 10 9 8 5 6 7 8 9 10 11 i=4; a[4]=a[6]=7, т.е. получим: 11 10 9 8 7 6 7 8 9 10 11 i=5; a[5]=a[5]=6, т.е. получим: 11 10 9 8 7 6 7 8 9 10 11 i=6; a[6]=a[4]=7, т.е. получим: 11 10 9 8 7 6 7 8 9 10 11 i=7; a[7]=a[3]=8, т.е. получим: 11 10 9 8 7 6 7 8 9 10 11 i=8; a[8]=a[2]=9, т.е. получим: 11 10 9 8 7 6 7 8 9 10 11 i=9; a[9]=a[1]=10, т.е. получим: 11 10 9 8 7 6 7 8 9 10 11 i=10; a[10]=a[0]=11, т.е. получим: 11 10 9 8 7 6 7 8 9 10 11 ответ: 11 10 9 8 7 6 7 8 9 10 11
program stroka
uses сrt; var s,temp: string; i,c,k,d: integer; begin clrscr; write('введите строку: '); readln(s); write('введите длину: '); readln(k); temp: =''; c: =0;
d: =length(s); for i: =1 to d do begin if s[i]< > ' ' then temp: =temp+s[i]; if ((s[i]=' ') or (i=d)) and (temp< > '') then begin if length(temp)=k then c: =c+1; temp: =''; end;
end; writeln('количество слов заданной длины: ',c);
readkey; end.
Популярно: Информатика
-
Heda010107.12.2021 03:05
-
trollotrollovit12.09.2020 03:15
-
mikhailkoltsov27.10.2021 09:02
-
alexnatur14.05.2022 14:32
-
mockingbird1205.11.2021 23:37
-
Neprostone27.04.2022 18:18
-
avysocka18.01.2021 14:08
-
shcooltime24.04.2021 02:04
-
Olyakiti15.04.2023 19:56
-
julv205.04.2020 21:36