Дан одномерный массив q из n элементов, значения которых находятся в диапазоне от -70 до 150. заменить все элементы, стоящие на местах, кратных 3, на единицы. вывести на экран исходный и новый массив.

Программа на qbasic dim i as integer, n as integer cls input "введите количество элементов: ", n dim q(1 to n) as integer randomize timer print "исходный массив" for i = 1 to n     q(i) = int(rnd * 220) - 70     print q(i) next i print "результирующий массив" for i = 1 to n     if i mod 3 = 0 then q(i) = 1     print q(i) next i end тестовое решение: введите количество элементов: 13 исходный массив   121   34   27   69   30   95   98   28   136   100   48   120   82 результирующий массив   121   34   1   69   30   1   98   28   1   100   48   1   82

1.что такое компьютер? это устройство или система, способная выполнять особые операции, а также вычисления. 2.что такое операционная система(ос)? это комплекс взаимосвязанных программ, предназначенных для компьютером, операциями и также ресурсов.есть 3 особо популярной ос, это windows, linux, mac. 3.что такое материнская плата? это сложная многослойная печатная плата, являющаяся основой построения вычислительной системы. 4.что такое видеокарта? это устройство, преобразующее графический образ, хранящийся как содержимое памяти компьютера, в форму, пригодную для дальнейшего вывода на экран монитора. 5.что такое процессор? это "мозг" компьютера, тоесть это устройство, которое способно обрабатывать программный код определяющее основные функции компьютера по обработке информации. 6.что такое оперативная память? (основное запоминающийся устройство, в сокр. озу) это память, часть системы памяти эвм, в которую процессор может обратиться за одну операцию. предназначена для временного хранения данных и команд, необходимых процессору для выполнения им операций. оперативная память передаёт процессору данные непосредственно, либо через кеш-память. каждая ячейка оперативной памяти имеет свой индивидуальный адрес.7.что такое жёсткий диск? это основное хранилище информации на твоем компьютере, которую можно изменять, создавать и т.п

Var       x, y: array[1..100] of integer;       i, n, k: integer;       min, max: integer; begin       {ввод массива}       write('n = ');       readln(n);             writeln('данные массива: ');       for i : = 1 to n do       begin               readln(x[i]);                     end;       writeln();             {минимум и максимум}       max : = x[1];       min : = x[1];       for i : = 1 to n do       begin               if max < x[i] then max : = x[i];               if min > x[i] then min : = x[i];       end;       writeln('max = ', max);       writeln('min = ', min);       writeln('avg = ', (max + min) / 2);             max : = (max + min) / 2;       k : = 0;       for i : = 1 to n do       begin               if x[i] > = max then begin                       k : = k + 1;                       y[k] : = x[i];                       write(y[k], ' ');               end;       end; end.