Program q; var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real; begin; randomize; for i:=1 to 7 do begin; for k:=1 to 7 do begin; a[i,k]:=random(-10,10); if a[i,k] mod 2 = 1 then odd+=1; end; end; min7:=a[1,7]; for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7]; for i:=1 to 7 do sum1+=a[i,1]; for i:=1 to 7 do avg5+=a[5,i]; avg5/=7; for i:=1 to 7 do a[1,i]:=1; write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd); end.
Добрый день! И так, начнём.. *Вопрос: Изменится ли строка ST, над которой произведут операцию COPY? Почему? *ответ: Изменится, т.к. при использовании функции COPY необходимо указывать в какой строке копировать, с какой позиции, и количество символов, которое будет копировано. **Вопрос: Чему будет равняться k после операции k:=length(‘мышь и клавиатура’)? **ответ: Переменная k будет равна 17, т.к. функция LENGTH определяет длину строки, считая каждый пробел, запятую, буквы и т.д. ***Вопрос: Чему будет равняться переменная tx после операции tx:=‘лесник’; delete(tx,4,3)? ***ответ: Переменная tx будет равна слову лес. Функция DELETE удаляет часть символов из строки. В нашем случае удаление происходит в строке tx, с позиции 4, удаляет 3 символа. Вопрос: Чему будет равняться переменная k после операции tx:=‘баобаб’; k:=pos(‘ба’,tx)? ответ: Переменная k будет равна 1. Т.к. функция POS определяет первое вхождение заданного символа. Дополненная программа: program zadacha1; var t: string; b: string[1]; n, k, i: integer; begin writeln('Введите текст: '); readln(t); n := length(t); k := 0; for i := 1 to n do begin b := copy(t, i, 1); if (t[i] = 'a') or (t[i] = 'A') or (t[i] = 'а') or (t[i] = 'А') then k := k + 1; end; writeln ('k= ', k); end.
*Курсивом и выделением обозначены дополнения в программе.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку