1. написать программу вывода первых t элементов одномерного массива из 10 элементов, введенных с клавиатуры 2. написать программу формирования значений элементов одномерного массива с использованием генератора случайных чисел в интервале от -10 до 10 (функция random). количество элементов массива 10. вычислить среднее значение неположительных элементов. 3. написать программу формирования значений элементов одномерного массива в произвольном интервале целых чисел (ввод с клавиатуры). количество элементов массива 10. выписать индексы положительных элементов массива, кратных 3. 4. даны два одномерных массива из целых чисел разной размерности. найти целую часть среднего арифметического элементов каждого массива и их сумму. 5. заполните массив из n элементов случайными числами в интервале [1,n] так, чтобы в массив обязательно вошли все числа от 1 до n (постройте случайную перестановку). пример: массив: 3 2 1 4 5

157

427

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

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

Asherok

Информатика

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

Такое уже было. я на него отвечал, думаю модераторы не против, если свой же ответ здесь предоставлю) только первых три 1: var p: array[1..10] of integer; i: integer; count: integer; begin for i: =1 to 10 do read(p[i]); write('сколько цифр массива хотите видеть? -> '); readln(count); for i: =1 to count do write(p[i]: 3); end. 2: var arr: array[1..10] of integer; i: integer; s: integer; count: integer; beginfor i: =1 to 10 dobeginarr[i]: =random(-10,10); if(arr[i]< 0) thenbeginwriteln(arr[i]: 4); s: =s+arr[i]; count: =count+1; end; end; writeln('среднее значение = ', s/count); end. 3: var arr: array[1..10] of integer; i: integer; crat: integer; id: integer; begin for i: =1 to 10 do begin read(arr[i]); crat: =arr[i] mod 3; if(crat = 0) then begin id: =arr[i]; if(arr[i] = id) then writeln('id = ', i: 2); end; end; end.

АнастасияГушпет

Информатика

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

var a, b, c, d, f : integer; s : real; begin

writeln( 'введите стороны треугольника: ' ); write( 'a = ' ); readlln( a ); write( 'b = ' ); readlln( b ); write( 'c = ' ); readlln( c );

writeln( 'введите стороны прямоугольника: ' ); write( 'd = ' ); readlln( d ); write( 'f = ' ); readlln( f ); s : = (a + b + c) / 2; s : = sqr( s * (s-a) * (s-b) * (s-c) ); if (d * f) = s then writeln( 's прямоугольника = s треугольника.' ) else if (d * f) > s then writeln( 's прямоугольника больше.' ) else writeln( 's треугольника больше.' ); readln; end.

var m, v, m1, v1 : integer; begin

writeln( 'введите объем и массу первого тела: ' ); write( 'm = ' ); readlln( m ); write( 'v = ' ); readlln( v );

writeln( 'введите объем и массу второго тела: ' ); write( 'm = ' ); readlln( m1 ); write( 'v = ' ); readlln( v1 ); if (m / v) = (m1 / v1) then writeln( 'плотности равны.' ) else if (m / v) > (m / v) then writeln( 'плотность первого тела больше.' ) else writeln( 'плотность второго тела больше.' ); readln; end.

var a, b : integer; begin

writeln( 'введите числа: ' ); write( 'a = ' ); readlln( a ); write( 'b = ' ); readlln( b );

if a mod b = 0 then write( 'число a является делителем числа b.' ); if b mod a = 0 then write( 'число b является делителем числа a.' ); readln; end.

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

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

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

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

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

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

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

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

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

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