EGORchikchik228
07.10.2021 06:44

3. Задан массив X[1..N]. Определите число операций сложения, которые выполняются при работе этой программы. Программа в картинке


3. Задан массив X[1..N]. Определите число операций сложения, которые выполняются при работе этой про

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
aliya77usa
19.02.2023 00:53
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.
0,0(0 оценок)
Ответ:
dimaalexandrovi
08.07.2022 08:27
Добрый день!
И так, начнём..
*Вопрос: Изменится ли строка 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 Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота