1.Створіть масив, елементами якого є 12 випадкових чисел у діапазоні від 4 до 15. Вивести масив на екран.
Порахувати суму елементів масиву.
Знайти кількість не парних елементів масиву.

2.Створіть масив, елементами якого є 7 перших членів арифметичної прогресії, перший член якої дорівнює 6, а її різниця – 4.
Виведіть масив на екран.

👇

Открыть все ответы

Ответ:

xhhxjdjdj4

26.02.2020

1)файл-Специально организованная структура данных, распознаваемая компьютером как единое целое или Файл — это информация, хранящаяся в долговременной памяти как единое целое и обозначенная именем.
2)Имя файла — строка символов, однозначно определяющая файл в некотором пространстве имён файловой системы, обычно называемом каталогом, директорией или папкой.
3)размеры файлов - не совсем понял, но вообще размер файла измеряется в основном в бит, байт, килобайт, мегабайт, гигабайт, терабайт, далее в основном не встречаются. еще есть килобит, мегабит, гигабит, на счет последнего не знаю, никогда не встречал.
4)Папка-это объект в файловой системе, упрощающий организацию файлов. Типичная файловая система содержит большое количество файлов, и каталоги упорядочить её путём их группировки.
5)иерархия папок- это порядок последовательного расположения папок
6)объекты операционной системы- Контекстное меню,Ярлык, пиктограмма(она же иконка), Рабочий стол, Папка, Диалоговое окно, Окно. Вообще их много, но основные я назвал.

4,6(41 оценок)

Ответ:

cozycoat1

26.02.2020

Const
    handsfree = true;

var
    a: array[1..100, 1..100] of real;
    max, min: real;
    i, j, m, n: integer;

begin
    {ввод матрицы}
    if handsfree then begin
        n := random(20) + 2;
        m := random(20) + 2;
    end
    else begin
        write('n, m =');
        readln(n, m);
    end;

    writeln('Данные матрицы');
    for i := 1 to m do
    begin
        for j := 1 to n do
            if handsfree then begin
                a[i, j] := random(100) - 50;
                write(a[i, j]:4, ' ')
            end
            else
                read(a[i, j]);
        writeln;
    end;

    {минимумы и максимумы}
    max := a[1, 1];
    min := a[1, 1];
    for i := 1 to m do
        for j := 1 to n do
        begin
            if max < a[i, j] then max := a[i, j];
            if min > a[i, j] then min := a[i, j];
        end;
    writeln('max = ', max);
    writeln('min = ', min);
end.

4,8(95 оценок)

Это интересно:

Дом-и-сад

19.01.2023

Орхидеи: как выбрать этот красивый цветок...

Компьютеры-и-электроника

22.03.2022

Как настроить Outlook 2007 для работы с Gmail...

Здоровье

23.07.2022

Шина при повреждении разгибательного аппарата на уровне дистального межфалангового сустава: эффективность лечения...

Кулинария-и-гостеприимство