Поиск

Полнотекстовый поиск:
Где искать:
везде
только в названии
только в тексте
Выводить:
описание
слова в тексте
только заголовок

Рекомендуем ознакомиться

'Документ'
2 География и ее место в генетической классификации наук. Проблема географической реальности. Онтологический статус географических объектов и критерии...полностью>>
'Документ'
Тарас Качка, учасник української переговорної команди, яка 5 років вела перемовини з ЄС щодо укладання Угоди про асоціацію; колишній перший заступник ...полностью>>
'Документ'
5. Какая эмоциональная окраска желательна для рекламного сообщения (юмористическая, деловая, повествовательная, восторженная) Данный пункт напрямую вл...полностью>>
'Руководство по эксплуатации'
1.1. Настоящее руководство по эксплуатации распространяется на запально-защитные устройства типа ЗЗУ и содержит сведения необходимые для правильного и...полностью>>

Главная > Документ

Сохрани ссылку в одной из сетей:
Информация о документе
Дата добавления:
Размер:
Доступные форматы для скачивания:

  1. Найти сумму и произведение элементов массива, состоящего из 10 элементов.

  2. Найти сумму всех отрицательных элементов массива, состоящего из 10 элементов.

  3. Найти скалярное произведение двух массивов. Скалярным произведением двух массивов одинаковой размерности называется сумма произведений соответствующих элементов (a[1]*b[1] +a[2]*b[2]+...+ a[n]*b[n]).

  4. В одномерном массиве, элементами которого являются целые числа, подсчитать сумму элементов, кратных 9.

  5. Дан целочисленный массив из 18 элементов. Элементы могут принимать значения от 0 до 100 – баллы, полученные на ЕГЭ. Составьте программу, которая подсчитывает и выводит средний балл учащихся, сдавших экзамен (получивших оценку более 20 баллов). Гарантируется, что хотя бы один ученик в классе успешно сдал экзамен.

  6. В данном одномерном массиве, элементами которого являются целые числа, подсчитать среднее арифметическое отрицательных элементов.

  7. В данном одномерном массиве, элементами которого являются целые числа, подсчитать среднее арифметическое элементов, попадающих в интервал [1, 25]. Количество элементов массива ввести с клавиатуры.

  8. Найти наибольший и наименьший элемент одномерного массива.

  9. Опишите алгоритм подсчета числа элементов, равных максимальному,

в числовом массиве из 20 элементов.

  1. Дан одномерный массив. состоящий из 10 элементов. Составить программу определения количества элементов массива, значение которых меньше заданного действительного числа t.

  2. Найти количество положительных и отрицательных элементов в массиве

в числовом массиве из 20 элементов.

  1. Найти и вывести на экран номера четных элементов в числовом массиве из 20 элементов.

  2. В данном одномерном массиве, состоящем из 8 элементов, заменить нулями все отрицательные элементы. Элементами массива являются целые числа.

  1. var a: array [0..9] of integer;

i, j, s: integer;

begin

for i := 0 to 9 do a[i] := random(100) - 50;

j := 1;

for i := 0 to 9 do

begin

j := j * a[i];

s := s + a[i];

end;

writeln(Сумма: ', s);

writeln(Произведение: ', j);

end.

  1. var a: array [0..9] of integer;

i, s: integer;

begin

for i := 0 to 9 do a[i] := random(100) - 50;

for i := 0 to 9 do

if (a[i] < 0) then

s := s + a[i];

writeln(Сумма: ', s);

end.

  1. var a, b: array [0..9] of integer;

i, j: integer;

begin

for i := 0 to 9 do

begin

a[i] := random(100) - 50;

b[i] := random(100) - 50;

end;

j := 1;

for i := 0 to 9 do

j := j + a[i] * b[i];

writeln('>', j);

end.

  1. var a: array [0..9] of integer;

i, j: integer;

begin

for i := 0 to 9 do a[i] := random(100) - 50;

for i := 0 to 9 do

if (a[i] mod 9 = 0) then

j := j + a[i];

writeln('>', j);

end.

  1. var a: array [0..17] of integer;

i, j, c: integer;

begin

for i := 0 to 16 do a[i] := random(100);

a[17] := 21;

for i := 0 to 17 do

if (a[i] > 20) then

begin

j := j + a[i];

c := c + 1;

end;

writeln('>', j / c);

end.

  1. var a: array [0..10] of integer;

i, j, c: integer;

begin

for i := 0 to 10 do a[i] := random(100) - 50;

for i := 0 to 10 do

if (a[i] < 0) then

begin

j := j + a[i];

c := c + 1;

end;

writeln('>', j / c);

end.

  1. var a: array of integer;

i, j, c, n: integer;

begin

readln(n);

a := new integer[n];

for i := 0 to n do a[i] := random(100) - 50;

for i := 0 to n do

if (a[i] in [1..25]) then

begin

j := j + a[i];

c := c + 1;

end;

writeln('>', j / c);

end.

{ P.S. Проверить не смог, ибо Pascal ABC динамические массивы не видит }

  1. var a: array [0..10] of integer;

i, mi, ma: integer;

begin

mi := 51;

ma := -51;

for i := 0 to 10 do

begin

a[i] := random(100) - 50;

writeln('[', i, '] => ', a[i]);

end;

for i := 0 to 10 do

begin

if (a[i] > ma) then ma := a[i];

if (a[i] < mi) then mi := a[i];

end;

writeln('>', mi, ' : ', ma);

end.

  1. var a: array [0..19] of integer;

i, max, c: integer;

begin

max := -51;

for i := 0 to 19 do

begin

a[i] := random(100) - 50;

writeln('[', i, '] => ', a[i]);

end;

for i := 0 to 19 do

begin

if (a[i] > max) then max := a[i];

end;

writeln('>', max);

for i := 0 to 19 do

begin

if (a[i] = max) then c := c + 1;

end;

writeln('>', c);

end.

  1. var a: array [0..9] of integer;

i, t, c: integer;

begin

readln(t);

for i := 0 to 9 do

begin

a[i] := random(100) - 50;

writeln('[', i, '] => ', a[i]);

end;

for i := 0 to 9 do

begin

if (a[i] < t) then c := c + 1;

end;

writeln('>', c);

end.

  1. var a: array [0..19] of integer;

i, c, c1: integer;

begin

for i := 0 to 19 do

begin

a[i] := random(100) - 50;

writeln('[', i, '] => ', a[i]);

end;

for i := 0 to 19 do

begin

if (a[i] > 0) then c := c + 1;

if (a[i] < 0) then c1 := c1 + 1;

end;

writeln('-:', c1);

writeln('+:', c);

end.

  1. var a: array [0..19] of integer;

i: integer;

begin

for i := 0 to 19 do

begin

a[i] := random(100) - 50;

writeln('[', i, '] => ', a[i]);

end;

writeln('================');

for i := 0 to 19 do

begin

if (a[i] mod 2 = 0) then writeln('[', i, '] => ', a[i]);

end;

end.

  1. var a: array [0..19] of integer;

i: integer;

begin

for i := 0 to 19 do

begin

a[i] := random(100) - 50;

writeln('[', i, '] => ', a[i]);

end;

writeln('================');

for i := 0 to 19 do

begin

if (a[i] < 0) then a[i] := 0;

writeln('[', i, '] => ', a[i]);

end;

end.



Похожие документы:

  1. Найти сумму и произведение элементов массива, состоящего из 10 элементов (2)

    Документ
    Найти сумму и произведение элементов массива, состоящего из 10 элементов. Найти сумму всех отрицательных элементов массива, состоящего из 10 элементов. Найти скалярное произведение двух массивов. Скалярным произведением двух массивов одинаковой ...
  2. Сформировать и вывести на экран последовательность из

    Документ
    ... элементов массива, состоящего из 10 чисел, которые превышают по величине число С. Элементы вводятся с клавиатуры. Найти произведение элементов целочисленного одномерного массива ...
  3. Задание на лабораторную работу по теме «массивы» вариант 1

    Документ
    ... столбцов. 10. Найти среднее значение элементов массива X, состоящего из двенадцати элементов. 11. Вывести на печать номера элементов массива Y(16 ...
  4. Стандартные скалярные типы данных

    Документ
    ... Вывести числа из диапазона а)[0,10]с шагом 1, б)[-10,0] с шагом 2, в)[-5,5] с шагом 0.3, г)[10,0] с шагом 1, д)[a,b] с шагом h. Найти а)сумму, б)произведение, в)разность чисел ...
  5. Сборник задач по курсу “

    Сборник задач
    ... удвоенный возраст девушки минус 14. Найти произведение цифр заданного k – значного числа. Напишите ...  n. Найти два элемента массива, сумма которых наименее близка к данному числу R. Дан целочисленный массив, состоящий из n элементов. Преобразовать ...

Другие похожие документы..