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

Нужно сделать задание в Pascal ABC.!


Нужно сделать задание в Pascal ABC.!

👇
Ответ:
nozdracheva95
nozdracheva95
07.12.2022

var

N: integer;

a: array [1..1000] of integer;

sum,i,k: integer;

begin

write('Введите размерность массива: ');

readln(N);

write('Введите элементы массива: ');

for i:=1 to N do

read(a[i]);

writeln('Элементы массива a: ');

for i:=1 to N do

write(a[i],' ');

writeln;

sum:=0;

for i:=1 to N do //Условие и проверка отрицательности и делимости элементов

if (a[i]<0) and (i mod 3 = 0) then

sum:=sum+sqr(a[i]);

writeln('Сумма квадратов значений элементов с условием равна: ', sum);

k:=0;

for i:=1 to N do //Условие и проверка положительности элементов

if (a[i]>0) and (a[i]<>sum) then

inc(k); //Сумма положительных элементов

writeln('Количество положительных элементов: ', k);

end.


Нужно сделать задание в Pascal ABC.!
4,6(35 оценок)
Открыть все ответы
Ответ:
25durak
25durak
07.12.2022

объяснение:

робочою книгою; b. робочим аркушем; c. документом

14. принциповою відмінністю електронної таблиці від звичайної є:

a. можливість автоматичного перерахунку за формулами даних при зміні вихідних;

b. можливість обробки даних, структурованих у вигляді таблиці;

c. можливість наочного представлення зв'язків між опрацьовуваними даними;

d. можливість обробки даних, представлених у рядках різного типу.

15. вираз 3(а1+в1): 5(2в1-3а2), записаний у відповідності до правил, прийнятих в

і, в електронній таблиці має вигляд:

а) 3*(а1+в1)/(5*(2*в1-3*а2)); б) 3*(а1+в1)/5(2в1-3а2);

в) 3(а1+в1): 5*(2в1-3а2); г) 3(а1+в1)/(5(2в1-

4,8(72 оценок)
Ответ:
Гелакси27
Гелакси27
07.12.2022
'VBScript

Sub Zadanie()
    ReDim C(5, 6)

    k_pos = 0
    mini = LBound(C, 1)
    minj = LBound(C, 2)
    For i = LBound(C, 1) To UBound(C, 1)
        For j = LBound(C, 2) To UBound(C, 2)
            C(i, j) = Round(Rnd * 10)

            if C(i, j) > 0 then k_pos = k_pos + 1

            if C(i, j) < C(mini, minj) then
                mini = i
                minj = j
            end if
        Next
    Next

    MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub

Call Zadanie()
4,4(47 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ