3 года назад

В каждой строке двумерного массива поменять местами первый элемент и любой из максимальных (Pascal ABC)

Знания

Информатика

1 ответ:

Кориолан [2]3 года назад

0 0

Вот держите.

Решение в прикрепе.

Читайте также

4. Сформировать целочисленный массив их 15 произвольных чисел. Подсчитать сумму и произведение элементов с нечетными индексами.

ksenyka [14]

Program arr;

var
   a: array[1..15] of integer;
   count,count_odd,num,sum,mult: integer;

begin
count := 1;
count_odd := 1;
num := 3;
sum := 0;
mult := 1;
while count <= 15 do
    begin
      a[count] := num;
      count := count + 1;
      num := num + 3;
    end;
while count_odd <= 15 do
    begin
      sum := sum + a[count_odd];
      mult := mult * a[count_odd];
      count_odd := count_odd + 2;
    end;
writeln('Массив из 15 элементов: 3, 6, 9, ..., 45');
writeln('Сумма элементов с нечетными индексами: ', sum);
writeln('Произведение элементов с нечетными индексами: ', mult);
end.

0 0

4 года назад

Помогите,очень прошу!!!

rogonosec [9]

<span>Задача №1 (( остальные по аналогии сделай ))
const n=3;var a:array[1..n,1..n] of integer; {Ввод массива N на N} i, j, sum: integer; {Ввод переменных}begin sum := 0; begin for i:= 1 to n do for j:= 1 to n do read(a[i,j]) end; for i:= 1 to n do begin for j:= 1 to n do if a[i,j] > 0 then sum:=sum + a[i,j] end; write('сумма = ', sum);end.</span>

0 0

4 года назад

Как решать данное задание? там ответ "30" , но не понятно откуда получилось. объясните пж.. уже несколько дней пытаюсь найти кон

дарья вилл [41]

Смотри сначало у тебя заходит k=1 и выполняется вычисления s=150-12=138 потом программа говорит перейти к следующей к=2 и снова идёт алгоритм s=138-12=126,k=3 s=126-12=114 , k=4 s=102 ,k=5 s=90 , k=6 s=78,k=7 s=66, k=8 s=54, k=9 s=42, k=10 s=30 т.к больше к нет , то он выведит ответ

0 0

3 года назад

Составьте программу, находящую сумму делителей числа Х. Число Х введите с клавиатуры. (Pascal ABC (не net)) (20 баллов)

Бедов Александр Н...

Program A;var X,sum,i: integer;beginsum := 0 ;Readln(X);for i:= 1 to X doif (x mod i = 0) then sum := sum + i;Writeln(sum);end.

0 0

2 года назад

1.Чему будет равна сумма переменных Х и Y после выполнения фрагмента? Х:=-5; Y:=6; Х:=2*Y; Y:=X - Y; Х:=5+X; Y:=-Y;

kotik-kotyara

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

x:=18

y:=-6

0 0

4 года назад