Решить ! не понимаю программу кумир, к сожалению, завтра последняя возможность исправить оценку. заранее 1. напечатать числовой ряд: 1, 7, 13, 19, 25, 31, ……….61 с цикла «пока». 2. написать программу, которая запрашивает число с клавиатуры и сообщает его квадрат, затем спрашивает пользователя «нужно продолжить работу? », и пользователь отвечаетда/нет. программа заканчивает свою работу, если пользователь напечатал слово «нет» на очередной вопрос программы, иначе считает и выдаёт ответ дальше. 3. дан массив из 10-ти чётных натуральных чисел – от 2 до 20. а) найдите сумму элементов массива. б) найдите минимальный элемент массива. 4. дан массив из 15 подряд идущих натуральных чисел, начиная с 50. а) найдите произведение элементов массива. б) найдите максимальный элемент массива.
Ответы
1.1,7,13,19,25,31,37,43,49,55,61.
Var mas: array [1..20] of integer; k: integer; begin randimize; //заполнение массива for k: =1 to 20 do begin mas[k]: =random(1000); end; for k: =1 to 20 do begin if k and 1=1 then mas[k]: =mas[k]*2 else mas[k]: =mas[k]-1; end; //вывод массива for k: =1 to 20 do writeln(mas[k]); end.
Var a: array[1..10] of integer; i,j,k: integer; begin for i: =1 to 10 do begin write('a[',i,'] = '); readln(a[i]); end; j: =0; k: =0; for i: =1 to n do begin if a[i]> 0 then begin j: =j+1; if j=3 then k: =i; end; end; if k> 0 then writeln('третий положительный элемент: a[',k,'] = ',a[k]) else writeln('в массиве нет трех положительных элементов'); readln; end. пример: a[1] = -5a[2] = 8a[3] = -9a[4] = 7a[5] = -3a[6] = -1a[7] = 6a[8] = -3a[9] = 2a[10] = 4третий положительный элемент: a[7] = 6
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Найдите значения логических выражений а) (1+1)+(1+0) * 1) +0) * (0+1)
Автор: infosmolenskay
Периметр трапеции, длины всех сторон которой вводятся с клавиатуры.
Автор: Виктор-Богданов
Составить алгоритм вычисления площади параллелограмма
Автор: Sokolova-Shcherbakov
Из каких частей состоят инструменты условного форматирования
Автор: denis302007