Помогите с Pascal, пожалуйста. Завтра нужно домашку сдать, а я ничего не понимаю :(
10-11 класс
|
Решите хотя бы одну, или две)
Вот задачи:
1. Заполнить одномерный массив, размерностью 15 по следующему правилу: на нечетном месте должен стоять элемент от 10 до 100, а на четном месте должен находиться нечетный элемент на том же промежутке.
2. Дан одномерный массив, заполненный целыми случайными числами. Определить, на сколько больше сумма четных элементов по сравнению с суммой элементов кратных 3.
3. Дан двумерный массив, размерностью 6х7. Определить, сумма каких элементов больше: 2-го столбца или 3-ей строки.
var
a : array [1..15] of Integer;
i : Integer;
begin
for i := 1 to 15 do
begin
if i mod 2 <> 0 then
a[i] := RandomRange(10, 100)
else
begin
a[i] := RandomRange(10, 100);
if a[i] mod 2 <> 0 then inc(a[i]);
end;
end;
end.
2:
const
N = 15;
Другие вопросы из категории
1) Пример содержит два многозначных числа (123+45=168)
2) Содержит любое количество многозначных чисел (123+45+23+1+1678 + ... = ...)
1. ?*sk*?.*j*??
2. *os?*a2.*p?
3. m?*kv*?.*??gand
1. В виде таблиц
2. В виде дерева
3. В виде нескольких связанных таблиц
4. В виде перекрёстных ссылок
Читайте также
1.Сколько раз будет выполнена команда повторения в приведенных фрагментах при n=7:
1) for i :=n downto 4 do;
2)S:=S * i.
2. Определите, какой будет результат приведенного фрагмента: a:=100, n:=4:
for i:=1 to n do
a:=a - 2 * i.
Очень важно помогите.
Если поможете я потом еще баллов заработаю кину, или денюжку на мобильный
Задан числовой массив а[2,5] .Найти кол-во массивов делящихся на 5