7. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-56, 47] (размер произвольный). Найти произведение элементов с четными номерами, которые превосходят некоторое число t.
Program proisvedchetbolt;
Var a: array[1..100] of integer;
i, n, p, t: integer;
Write (‘Сколько элементов? ’); Readln (n);
For i=1 to n do
a[i]:= Random(104)-56; writeln (a[i],’ ‘);
if (i mod 2 = 0) and (a[i]>t) then P=P*a[i];
Writeln(‘Произведение элементов с четными номерами, превосходящие число t:’, P);
8. Найти наименьший элемент одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.
Program minim;
Var a: array[1..100] of real;
i, n: integer;
Write (‘n=’); Readln (n);
For i:=1 to n do
write(‘a[‘,i,’]=’); readln (a[i]);
For i:=2 to n do
If a[i]< min then min:=a[i];
Writeln(‘наименьшее число: ‘,min);
9. Найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-20, 25]. Размер произвольный.
Решение задач на Pascal #6 | Цикл While
Program numberminim;
Var a: array[1..100] of integer;
i, n, num, min: integer;
Write (‘n=’); Readln (n);
For i:=1 to n do
a[i]:= Random(46)-20;
writeln (a[i]);
For i:=2 to n do
If a[i]< min then
Writeln(‘ номер наименьшего элемента: ‘,num);
10.
В заданном одномерном массиве, состоящем из n целых чисел, подсчитать количество нулей.
Program kolv0;
Var a: array[1..100] of integer;
i, n, k: integer;
Write (‘n=’); Readln (n);
For i:=1 to n do
Write(‘a[‘,i,’]=’); readln (a[i]);
if a[i]=0 then k:=k+1;
Writeln(‘количество 0 равно ’, k);
11. В заданном одномерном массиве, состоящем из n целых чисел, подсчитать количество четных элементов.
Program kolvсchet;
Var a: array[1..100] of integer;
i, n, k: integer;
Write (‘n=’); Readln (n);
For i:=1 to n do
Write(‘a[‘,i,’]=’); readln (a[i]);
if a[i] mod 2=0 then k:=k+1;
Writeln(‘количество четных элементов: ’, k);
12. Найдите среднее арифметическое элементов массива, состоящего из 10 чисел, которые превышают по величине число С. Элементы вводятся с клавиатуры.
Program sredarifmet;
Var a: array[1..10] of real;
i, k: integer;
C, S, sred: real;
For i:=1 to 10 do
write(‘a[‘,i,’]=’); readln (a[i]);
write(‘введите С: ‘); readln (C );
For i:=1 to 10 do
If a[i]>C then
begin S=S+a[i]; K=K+1; end;
Writeln(‘среднее арифметическое чисел, превосходящих ‘,C,’ равно ‘,sred);
13. Найти произведение элементов целочисленного одномерного массива с четными номерами, состоящего из n элементов. Элементы вводятся с клавиатуры.
Program proizved_chet;
Var a: array [1..100] of integer;
i, n, p: integer;
write (‘n=’); readln (n);
for i:=1 to n do
write (‘a[‘,i,’]=’); readln (a[i]);
if i mod 2=0 then p:=p*a[i];
Writeln (‘произведение элементов массива с четными номерами равно ‘,p);
14. В заданном одномерном массиве поменять местами соседние элементы.
Var
n, i, c : integer;
a : array [1..1000] of integer;
begin
read (n);
for i := 1 to n do read (a[i]);
for i := 1 to n div 2 do
Паскаль для новичков 3 — задачи: площадь прямоугольника, объем параллелепипеда и тд.
begin
c := a[i*2];
a[i*2] := a[i*2-1];
a[i*2-1] := c;
end;
for i := 1 to n do
write (a[i], ‘ ‘);
end.
15. Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из четных элементов массива А. Элементы вводятся с клавиатуры. Размер n.
Источник: urok11-9klassfgos.blogspot.com
Программы Pascal
Даны натуральные числа n и k. Составить программу вычисления выражения 1k + 2k + … + nk. Для решения задачи нужно организовать два цикла, один из которых поместим внутрь другого.
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и подсчет количества введенных положительных и отрицательных чисел.
Напишите программу для вычисления наибольшего общего делителя двух целых чисел. Задачу решим двумя способами: используя оператор repeat, используя оператор while.
Напишите программу, которая производит обмен значений переменных x и y если x больше y. Задачу можно решить несколькими способами. Предлагаю два. Простая задача, с помощью которой можно
Задача. Проверить, является ли четырехзначное число счастливым билетом. Дано четырехзначное число. Проверить, является ли оно «счастливым билетом». Счастливым билетом называется число
Задача. Вывести на экран три числа в порядке обратном вводу. Нужно ввести с клавиатуры три числа (первое, второе и третье), а компьютер должен вывести третье, затем второе и первое.
- Тесты
- Контрольные работы
- Самостоятельные работы
- Практические работы
- ЕГЭ
- ОГЭ
- Кроссворды
- Презентации
- Задачи с решением
- Занимательные задачи
- Программы Pascal
- Конспекты уроков
- Документы, программы, УМК
- Помощь с Office
- Помощь с Windows
- Это интересно
- Безопасность в сети Интернет
Источник: infedu.ru
ОГЭ по информатике. Нахождение СУММЫ. Задачи на Паскаль (Pascal) — вторая часть.
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – СУММУ чисел.
В начале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Суммируем: То что было в сумме плюс очередной элемент.
Var a, i, sum, n: integer; begin read(n); sum:=0; for i:=1 to n do begin read(a); sum:= sum + a; end; Writeln(sum); end.
Нахождение СУММЫ чисел КРАТНЫХ 4.
Задача 2
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, КРАТНЫХ 4. В последовательности всегда имеется число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – СУММУ чисел, кратных 4.
В начале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент кратный 4, то мы суммируем: то что было в сумме плюс наш элемент.
var a, i, sum, n: integer; begin read(n); sum:=0; for i:=1 to n do begin read(a); if a mod 4 = 0 then sum:= sum + a; end; Writeln(sum); end.
Нахождение СУММЫ чисел, ОКАНЧИВАЮЩИХСЯ на 2.
Задача 9
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2. В последовательности всегда имеется число, ОКАНЧИВАЮЩЕЕСЯ на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2.
Вначале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который оканчивается на 2 то мы суммируем: то что было в сумме плюс наш элемент.
var a, i, sum, n: integer; begin read(n); sum:=0; for i:=1 to n do begin read(a); if a mod 10 = 2 then sum:= sum + a; end; Writeln(sum); end.
Нахождение СУММЫ чётных чисел.
Задача 3
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чётных чисел. В последовательности всегда имеется чётное число. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – СУММУ чётных чисел.
Вначале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался чётный элемент (остаток от деления на 2 равен нулю), то мы суммируем: то что было в сумме плюс наш элемент.
var a, i, sum, n: integer; begin read(n); sum:=0; for i:=1 to n do begin read(a); if a mod 2 = 0 then sum:= sum + a; end; Writeln(sum); end.
Источник: code-enjoy.ru