Массивы в Pascal

Комментарии

Помогите пожалуйста

Задача выглядит так

Дан массив целых чисел (n = 14), заполненный случайным образом числами из промежутка [-10, 60]. Удалить из него все элементы, в которых последняя цифра нечетная, а само число делится на удвоенную последнюю цифру. Вставить число k перед и после всех элементов, заканчивающихся на последнюю цифру числа k (k вводить с клавиатуры). Переставить элементы следующим образом: a[1|, a[14|, a[2|, a[13|, …, a[7|, a[8|, a[9|, a[10|.

Помогите пожалуйста. завтра нужно сдать для допуска к зачету

Составить процедуру нахождение индеков максимального элементра матрицы. Используя такую процедура, найти сколярное произведение строки на столбец. заданной квадратной матрицы В с номера соответственно равные индексам ее максимального элемента:
-0,0004 2,5 6,21
В= 19 -45,1 0
-2,75 5,7 12,9

Помогите

Заполнить массив случайными числами из ромежутка 1-100 и определить в массиве сколько значений чётных и сколько нечётных

Решение

program n1;
uses crt;
var aw:array[1..10] of integer;
i,w,g:integer;
begin
g:=0;
w:=10;
for i:=0+1 to w do begin
aw[i]:=random(100);
write(aw[i]:6);
          end;
writeln();
write('Чот');
for i:=0+1 to w do begin
if aw[i] mod 2 = 0 then g:=g+1; end; write('Всего чотных чисел ',g);
writeln();
write('Не чот');
g:=0;
for i:=0+1 to w do begin
if aw[i] mod 2 > 0 then g:=g+1;end; write('Всего не чотных чисел ',g) ;
end.

Замена подстроки

Помогите пожалуйста написать прогу в паскале
Дан массив из n строк. В каждой строке заменить все восклицательные знаки точками.

Помогите

Помогите пожалуйста
а)A=exp((-0.3*(i+j))*sqrt((j-5.3)*(j-0.7)*(j-6.5)*(i+j));
б) Среди столбцов матрицы А, содержащих только элементы, не превосходящие по
абсолютной величине 50, найти столбец с минимальным произведением модулей элементов и
взять его в качестве вектора x.

Помогите пожалуйста

Школьников отправили на распределение яблок из кучи. Количество яблок в куче не известно. Распределяют яблоки на 4 корзины. 1(Красные), 2(Зеленые), 3(Желтые), 4(Испорченные).
Требуется написать программу для распределения и подсчета яблок в каждой корзине и куче. Количество яблок в куче должно быть рандомизировано.

если цифра один ,то в первую корзину ,если 2 то во вторую ,а если 3 ,то в 3 ,ну а если 4 то в 4 (когда выпадает ноль то все конец )

Решение

Я точно как не понял по вашему описанию так как вы написали что что должно быть рандомизировано но при этом чтобы на 0 был конец программы также я не понял ну чот написал просьба ответить так надо или нет!!!

program n1;
uses crt;
var i,c,m,g,v,s,q,h :integer;
begin
q:=random (10);
for h:=1 to q do begin
writeln('Какое попалось яблоко ? Красное,Зеленое,Желтое,Испорченное ?');
readln(s);
if s=1 then i:=i+1 else if s=2 then c:=c+1 else if s=3 then g:=g+1 else if s=4 then v:=v+1 ;
end;
writeln('     Всего яблок в куче ',i+c+g+v);
writeln ('  Красных яблок ' ,i, '  Зеленых яблок ',c);
writeln ('  Желтых яблок ',g,'  Испорченных яблок ',v);
end.

Решение

Program i563;
  Var M: array [1..100] of integer;
      N, a, b, c, d, i: integer;
  Begin
    a:=0;
    b:=0;
    c:=0;
    d:=0;
    readln(N);
    for i := 1 to N do read (M[i]);
    for i:=1 to N do
      Begin
        if M[i]=1 then inc(a);
        if M[i]=2 then inc(b);
        if M[i]=3 then inc(c);
        if M[i]=4 then inc(d);
      End;
    write(a,' ',b,' ',c,' ',d);
  End.

Помогите пожалуйста

Нужен треугольник, перемещающийся по вертикали, при этом самому задавать скорость движения.

Pascal. Массивы.

Помогите решить пожалуйста. Завтра лаба. Хотелось бы разобраться побольше.

Даны два массива равной длинны. Создать из них третий массив, сложив поэлементно первые два. Посчитать в получившемся массиве количество нечетных и все элементы делящиеся на 3 увеличить в 5 раз.

помогите

в двумерном массиве размерности M*N.Найти 2 максимальных элемента и 2 минимальных Напечатать элементы и их координаты

Помогите

Посчитать сколько чисел нужно просуммировать начиная от а ,чтобы результат стал превышать n , числа целые а и n ,вводятся с клавиатуры !

Помогите пожалуйста с массивом!

Нужно создать массив. Элементы вводятся с клавиатуры, а вывести каждый элемент, увеличен в два раза, причем на первой строке вводится количество элементов (не более ста), а на второй - сами элементы. Если с увеличением в два раза я справится могу, то не знаю что делать с количеством элементов. Объясните пожалуйста!

ответ)

begin
read(n);
for i:=1 to n do
read(m);

где n- количество элементов, а m- сами элементы.

Как записать программу?

задать количество элементов одномерного массива, присвоить каждому случайное целочисленное значение, отсортировать от минимума к максимуму

помогите з табулированием

Сложить программу табулирования функции z = f (x, y) в прямоугольнику [a, b]x[c, d] с шагом табулирования h.

Помогите пожалуста. Ввести

Помогите пожалуста. Ввести массив из 10 целых чисел. Найти максимальный из отрицательных элементов массива и его номер. Если отрицательных элементов в массиве нет, вывести соответствующее сообщение

помогите решить

Задача 1.
Подсчитать произведение чисел 2*3*4*5*6
Задача 2.
Подсчитать среднее значение чисел от 0 до 30.

Помогите найти экстремумы функции

y=-1,5*x^3+6*x^2-x+5 на интервале [-5;5], используя метод итераций. Ребята, SOS. Все перепробовала.

помогите пожалуйста

Дана последовательность из 10 чисел (интервал [-40; 85]. Вывести ее на экран. Удалить из заданной последовательности все числа, принадлежащие интервалу [-8; 25]. Вывести исходную и новую последовательность.

помогите решить

Отладить процедуру, которая будет возвращать значение среднего арифметического двух своих параметров а и b.

помогите решить

Даны 3 одномерных массива A, B, C разной длины. Разработать процедуру ввода массивов и нахождения их средних значений. Полученные средние значения выдать на экран в программе.

Массив

записать программу, которая запрашивает с клавиатуры 10 чисел. Найти номер максимального элемента и минимальный элемент. вывести массив в столбик.

program m1;var i :

program m1;
var i : byte;
	max,imax:integer;
	a:array [1..10] of integer;
BEGIN
for i:=1 to 10 do
	begin
		readln(a[i]);
	end;	
	max:=a[1];
for i:=1 to 10 do
	while max<a[i] do
		begin
			max:=a[i];
			imax:=i;
		end;
	writeln('max=',max);
	writeln('imax=',imax);
END.

Ответ

const
         n = 10; //Константа для массива
 
var
         a: array [1..n] of integer; //Обявили массив от 1 до 10(n)
         i, min, max: integer;
 
begin
         for i := 1 to n do // Включили счетчик для ввода чисел в массив от 1 до n
         begin
                  Write('Введите число ', i, ' в массив: ');
                  Readln(a[i]);
         end;
         // Алгоритм вычисления минимального элемента
         min := a[1];
         for i := 2 to n do // Начали с 2, т.к мы присвоили переменной min первое значение
         begin
                  if a[i] < min then
                           min := a[i];
         end;
                             // Алгоритм вычисления максимального элемента
         max := a[1];
         for i := 2 to n do
         begin
                  if a[i] > max then
                           max := a[i];
         end;
         Writeln('Максимальный элемент: ',max);
         Writeln('Минимальный элемент: ',min);
         Writeln('{ВЫВОДИМ МАССИВ}');
         for i:= 1 to n do //Счетчик на вывод массива
         begin
         Writeln(i ,' элемент: ',a[i]);
end;
end.

Масиви. Помогите пожалуйста, срочно, на завтра задали

Выясните количество расположенных последовательно положительных элементов, которыми заканчивается линейный массив.

Помогите с задачей, пожалуйста

Выясните количество расположенных последовательно положительных элементов, которыми заканчивается линейный массив.

Помогите пожалуйста ,очень нужно

Создать массив (5 элементов). Заполнить массив с клавиатуры отрицательными и положительными числами. Вывести элементы массива в ListBox. В TextBox вывести количество отрицательных элементов.

Двумерные массивы. Помогите, пожалуйста!

Ввести массив А(N,M). Составить вектор из сумм элементов, больших среднего геометрического, по столбцам.

Массивы

Помогите решить задачу: Дан массив А, состоящий из N элементов.Найти минимальный из элементов этого массива с нечетными индексами и максимальный из элементов с четными индексами.

Массив срочно помощь

ввести одномерный массив из n элементов. получить сумму тех челеннов массива,которые нечётны и положительны, или вывести сообщение таких значений нет

Массив срочно я сейчас на паре нужна помощь

ввести одномерный массив из n элементов. получить сумму тех челеннов массива,которые нечётны и положительны, или вывести сообщение таких значений нет

Помогите пожалуйста, очень бородатая задачка

Дано: Массивы A(n1,n1), B(n2,n2), C(n3,n3).Определить в каждом из заданных массивов разность произведений ненулевых элементов, расположенных в четных столбцах над главной и под главной диагональю. Определение ненулевых элементов, расположенных в четных столбцах над главной и под главной диагональю, осуществить в подпрограмме.

дан массив из n элементов , найти количество отрицательных чисел

Помогите срочно. Пожалуйста :)

Помогите пожалуйста)буду очень благодарна)

В чем состоит особенность цикла при обработке массива?

Нужна помощь!

Дан файл f , компонентами которого являются символьные массивы s1,....,s10 . Получить в файле f1 символьные массивы по двадцать элементов в каждом. Эти массивы должны получаться следующими преобразованиями исходных массивов: s1,....,s10,s1,......,s10 .

ПОМОГИТЕ, ПОЖАЛУЙСТА!!!

Дан массив целых чисел размерностью 3x4.
Вывести массив на экран. Вывести элементы массива [1; 2] ,[2; 3].
Высветил элементы массива только первой строки, только четвертого столбца.

1)Отсортировать

1)Отсортировать последовательность некоторых чисел по возрастанию, и выяснить на сколько макс элемент больше мин.
2)Найти мин эл массива, используя сортировку по убыванию. Заменить на макс эл другого массива.
3)Напишите программу, которая сортирует массив и находит количество различ. чисел в нем.

Пожалуйста помогите!!!

При помощи случайных чисел ввести одномерный массив, состоящий из 15 элементов. Найти в нем максимальный и минимальный элементы и поменять местами первый и минимальный элемент, последний и максимальный. На экран вывести исходный и преобразованный массивы в две строки и индексы минимального и максимального элементов. Отсортировать измененный массив методом выбора. Вывести отсортированный массив на экран.

Нужна помощь.

сформировать массив из n-элементов .Вывести новый массив состоящий из суммы элементов кратных трем и средне-арифметическое его элементов

Помогите, пожалуйста!

Опишите на одном из языков программирования алгоритм подсчёта максимального количества подряд идущих четных элементов в целочисленном массиве длины 30.

const M = 30; var a:

const M = 30;
var   
    a: array[1..M] of byte;
    i, max, count: byte;
begin
    randomize;
    for i:=1 to M do begin
        a[i] := random(100);
        write(a[i]:3);
    end;
    writeln;
 
    max := 0;
    count := 0;
    for i:=1 to M do begin
        if a[i] mod 2 = 0 then
            count := count + 1
        else begin
            if count > max then
                max := count;
            count := 0;
        end;
    end;
    writeln(max);    
end.

Описать функцию f (x) - количество нечетных цифр натурального чи

Описать функцию f (x) - количество нечетных цифр натурального числа х. Составить программу, которая распечатывает значение функции f (x1), ..., f (xn). помогите

Пожалуйста,помогите.

Дан массив из 10 элементов.Замените все чётные элементы нулями.

Дан массив из 10 элементов.Замените все чётные элементы нулями.

Program NoName;
const n = 10;
var a : array [1..n] of integer;
i : integer;
Begin 
for i:=1 to n do
begin
readln ( a[i] );
end;
for i:=1 to n do
begin
if (a[i]mod 2)=0 then
a[i]:=0;
write ( a[i],' ' );
end;
end.

в исходном массиве подсчитать

в исходном массиве подсчитать количество чётных и не чётных элементов,положительных и отрицательных элементов,количество нулей диапозон-100,100.Помогите пожалуйста.

ответ

const N=100;
var
a:array[1..n] of integer;
s,null,o,h,r,k,i:integer;
begin
s:=0; h:=0; r:=0;k:=0;
for i:=1 to n do
begin
a[i]:=random(100)-100;
write(a[i]:4);
end;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(k);
if a[i] mod 2>0 then inc(r);
if a[i]<0 then inc(h);
if a[i]>0 then inc(o);
if a[i]=0 then inc(null); 
end;
writeln;
writeln('kol chetnix elementov= ',k);
writeln('kol nechetnix elementov= ',r);
writeln('kol otrisatelnix elementov= ',h);
writeln('kol polojitelnix elementov= ',o);
writeln('kol 0 elementov= ',null);
end.

Помогитеее!!!

Найти максимальный и минимальный элементы динамического целочисленного массива mass.