Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Помогите с Pascal, пожалуйста. Завтра нужно домашку сдать, а я ничего не понимаю :(

10-11 класс

Решите хотя бы одну, или две)
Вот задачи:
1. Заполнить одномерный массив, размерностью 15 по следующему правилу: на нечетном месте должен стоять элемент от 10 до 100, а на четном месте должен находиться нечетный элемент на том же промежутке.
2. Дан одномерный массив, заполненный целыми случайными числами. Определить, на сколько больше сумма четных элементов по сравнению с суммой элементов кратных 3.
3. Дан двумерный массив, размерностью 6х7. Определить, сумма каких элементов больше: 2-го столбца или 3-ей строки.

Асяхолодова 04 июля 2014 г., 20:15:35 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Sahakyanlala
04 июля 2014 г., 22:15:18 (9 лет назад)

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;

Ответить

Другие вопросы из категории

Написать программу вНаписать программу в паскале.Проверить правильность решения примера (вида 2+3=5):

1) Пример содержит два многозначных числа (123+45=168)
2) Содержит любое количество многозначных чисел (123+45+23+1+1678 + ... = ...)

В каком виде представлены данные в сетевых базах?

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.
Очень важно помогите.

Ребят, очень срочно нужно, контрольная на 30 мин, а ничего не понимаю...

Если поможете я потом еще баллов заработаю кину, или денюжку на мобильный

Задан числовой массив а[2,5] .Найти кол-во массивов делящихся на 5



Вы находитесь на странице вопроса "Помогите с Pascal, пожалуйста. Завтра нужно домашку сдать, а я ничего не понимаю :(", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.