1. заполнить массив с клавиатуры целыми числами. вывести элементы этого массива на экран. (добавить комментарии) 2. заполнить массив таким образом, чтобы каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3. ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. в одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. вывести на экран исходный и новый массив. 7. ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.

286

297

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

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

nikitasemenov3

Информатика

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

Const n = 5; var a,b : array [1..n] of integer; i,s,k1,k2,max,min : integer; begin for i : = 1 to n do readln (a[i]); for i : = 1 to n do writeln (i,')elem = ',a[i]); end. begin for i : = 1 to n do a[i] : = i * 3; for i : = 1 to n do writeln (i,')elem = ',a[i]); end. begin s : = 0; for i : = 1 to n do begin readln (a[i]); s : = s + a[i]; end; writeln (s); end. begin k1 : = 0; k2 : = 0; for i : = 1 to n do begin readln (a[i]); if a[i] > 0 then k1 : = k1 +1; if a[i] < 0 then k2 : = k2 +1; end; writeln ('+ ',k1); writeln ('- ',k2); end. begin k1 : = 0; k2 : = 0; for i : = 1 to n do begin readln (a[i]); if (a[i] > 0) and (i mod 2 = 1) then k1 : = k1 +1; if (a[i] < 0) and (i mod 2 = 0) then k2 : = k2 +1; end; writeln ('+ ',k1); writeln ('- ',k2); end. begin for i : = 1 to n do begin readln (a[i]); if a[i] < 0 then b[i] : = sqr (a[i]); if a[i] > 0 then b[i] : = a[i] * a[i] * a[i]; end; for i : = 1 to n do write (a[i],' '); writeln (); for i : = 1 to n do write (b[i],' '); end. begin for i : = 1 to n do readln (a[i]); max : = a[1]; min : = a[1]; for i : = 2 to n do begin if a[i] > max then max : = a[i]; if a[i] < min then min : = a[i]; end; writeln ('max=',max); writeln ('min=',min); end. begin for i : = 1 to n do readln (a[i]); writeln ('found : '); readln (s); k1 : = 0; k2 : = 0; for i : = n downto 1 do if a[i] = s then begin k1 : = k1 + 1; k2 : = i; end; writeln ('k=',k1); writeln ('i=',k2); end.бери те переменные, которые используются в конкретной .

Danilfaha

Информатика

4,4(53 оценок)

Вобъявлении переменных (var) написано 'выражение' а должен быть тип переменных. например, integer.

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

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

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

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

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

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

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

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

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

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