1.дан массив натуральных чисел. найти сумму элементов кратных данному к. 2.в целочисленной последовательности есть нулевые элементы.создать массив из номеров этих элементов. 3. дана последовательность целых чисел
а1, . выяснить, какое число встречается раньш положитльно или отрицатльное. 4. дана последоватльность действительных чисел а1,. выяснить,будет ли она возрастающей.

157

247

Посмотреть ответы 2

Ответы на вопрос:

Madina1606

Информатика

4,5(25 оценок)

program num1; uses crt; var a : array [1..100] of integer; i,k,n, s : integer; begin clrscr; s: =0; write('k='); readln(k); write('n='); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do if (a[i] mod k)=0 then s: =s+a[i]; writeln('s=',s); end.

program num2; uses crt; var a : array [1..100] of real; i,n,j : integer; x : array [1..100] of real; begin clrscr; write('n='); readln(n); for i: =1 to n do readln(a[i]); j: =1; for i: =1 to n do if a[i]=0 then begin x[j]: =i; j: =j+1 end; for i: =1 to j-1 do write(x[i],' '); end.

program num3; uses crt; var a : array [1..100] of real; i,n : integer; begin clrscr; write('n='); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do begin if a[i]< > 0 then if a[i]> 0 then begin writeln('положительное встречается раньше'); break end else begin writeln('отрицательное встречается раньше'); break end; end; end.

program num4; uses crt; var a : array [1..100] of real; i, n, j : integer; begin clrscr; write('n='); readln(n); a[n+1]: =a[n]+1; for i: =1 to n do readln(a[i]); j: =0; i: =1; while i< n do begin if a[i]< a[i+1] then begin j: =j+1; i: =i+1 end else begin writeln('последовательность невозрастающая'); break end; end;

if i=n then writeln('последовательность возрастающая'); end.

helpmepls69

Информатика

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

1: создание, редактирование, сохранение и печать текстов

2: выравнивания по высоте

3: исправление текста при подготовке к печати

4: монитор

Я думаю, так как это тест - объяснять ничего не надо

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.