М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Мальцев23
Мальцев23
08.01.2023 18:19 •  Информатика

Дан массив из n элементов. найти сумму элементов которые крытны своим индексам.

👇
Ответ:
Эля54321
Эля54321
08.01.2023

program HelloWorld;

const N = 100;

var m:array [1..N] of real;

var i: integer;

var j: integer;

var summ: real;

 

begin

    summ:=0;

    for i := 1 to N do

    begin

        j:= random(555);

        m[i]:=j;

        if j mod i = 0 then summ:=summ+m[i];       

    end;

 

    write(summ:10:0);

end.

4,5(7 оценок)
Открыть все ответы
Ответ:
daysannas
daysannas
08.01.2023
Процессор. Микропроцессор — основная микросхема персонального компьютера. Все вычисления выполняются в ней. Основная характеристика процессора — тактовая частота (измеряется в мегагерцах, МГц). Чем выше тактовая частота, тем выше производительность процессора. 
Оперативная память. Оперативную память можно представить как обширный массив ячеек, в которых хранятся числовые данные и команды в то время, когда компьютер включен. Объем оперативной памяти измеряется в миллионах байтов — мегабайтах (Мбайт).
Монитор — устройство для визуального воспроизведения символьной и графической информации. Служит в качестве устройства вывода.
Принтер  — это внешнее периферийное устройство компьютера, предназначенное для вывода текстовой или графической информации, хранящейся в компьютере, на твёрдый физический носитель, обычно бумагу
Сканер— это устройство ввода, которое, анализируя какой-либо объект (обычно изображение, текст), создаёт цифровую копию изображения объекта. Процесс получения этой копии называется сканированием.
Веб-камера — малоразмерная цифровая видео- или фотокамера в реальном временификсировать изображения
4,4(85 оценок)
Ответ:
Yutik
Yutik
08.01.2023
Const
    handsfree = true;

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

begin
    {ввод массива}
    if handsfree then
        n := random(20) + 5
    else begin
        write('n = ');
        readln(n);
    end;

    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100) - 50;
            write(a[i]:3, ' ');
        end
        else readln(a[i]);
    end;
    writeln();

    {изменение элементов}
    for i := 1 to n do
    begin
        if a[i] < 0 then
            a[i] := abs(a[i]);
        write(a[i]:3, ' ');
    end;
end.
4,7(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ