М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Maxyim
Maxyim
22.11.2020 12:08 •  Информатика

Дан массив x[n] целых чисел. не используя других массивов, переставить его элементы в обратном порядке.

👇
Ответ:
vika20053011
vika20053011
22.11.2020
Const n=10; 
var x:array[1..n] of integer;
i,c:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 x[i]:=random(21)-10;
 write(x[i]:4);
 end;
writeln;
for i:=1 to n div 2 do
 begin c:=x[i]; x[i]:=x[n-i+1]; x[n-i+1]:=c; end;
writeln('Измененный массив:');
for i:=1 to n do write(x[i]:4);
writeln;
end.

Пример:
Исходный массив:
  -9   1  -7   3  -6   7   7  10   9   7
Измененный массив:
   7   9  10   7   7  -6   3  -7   1  -9
4,5(50 оценок)
Открыть все ответы
Ответ:
bonbino1
bonbino1
22.11.2020

1. Это двухмерный массив

(TypeError: unsupported operand type(s) for +=: 'int' and 'list')

2. 3x4 ([3][4])

3. Сложение элементов двумерного массива.

Только вот работать не будет, я полагаю здесь должны были складываться все элементы массивов, но на фото он прибавляет к переменной S не числа а массивы. И это выдаёт ошибку, так что...

Я бы сделал это так:

b = [[3, 5, 7, 78], [12, 10, 9, 56], [45, 31, 14, 23]]

s = 0

for i in b:

   for j in i:

       s += j

# Или используя len:

for i in range(len(b)):

   for j in range(len(i)):

       s += b[i][j]

print('s =', s)

# s = 293

4,5(63 оценок)
Ответ:
2303901
2303901
22.11.2020
//PascalABC.Net 3.1.0.1200
uses System;
var
    title: array[2..5]of string := ('Неудовлетворительно', 'Удовлетворительно', 'Хорошо', 'Отлично');

begin
    writeln('Введите оценки');
    var marks := new Dictionary<integer, integer>();
    
    repeat
        var n := ReadInteger();
        if (n > 5) or (n < 2) then continue;
        
        if marks.ContainsKey(n) then
            marks[n] += 1
        else marks.Add(n, 1);
    until marks.Values.Sum >= 10;
    
    for var i := 2 to 5 do
        writeln(title[i], ': ', marks[i]);
end.
4,5(1 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ