Предмет: Информатика, автор: dima8686

30 БАЛЛОВ
Помогите решить два задания по информатике 10 класс.Написать надо на листке. язык: паскаль
1.Задать массив из 10-ти произвольных чисел. Найти сумму девятого и десятого элементов последовательности.
2.Массив А вводится с клавиатуры. Вывести массив А, в , котором положительные элементы возвести в квадрат.

Ответы

Автор ответа: Wani4kaa
1

Ответ:

Дан во вложениях.

Приложения:

LRSM: Какой смысл трижды объявлять цикл с одинаковыми параметрами? Лишняя работа, за такое могут и балл снизить.
Wani4kaa: Может быть и лишняя работа, но у нас за такое балл никогда не снижали
Wani4kaa: Либо писать 4 строки на 2 for'а, либо 5 строк на for с begin, двумя действиями и end. В рамках школьной программы вообще почти всегда без разницы ведь
LRSM: Разница как минимум в скорости, в два раза.
Wani4kaa: Ваше побыстрее будет? Оно на вид тоже работает за три цикла
Wani4kaa: Если вам важно, чтобы решения с N=5e7 отрабатывали за секунду и быстрее, отметьте нарушение и попросите отправить на исправление, несложно ж объединить
LRSM: Ваш ответ не содержит нарушений, я лишь отметил, что использование ресурсов не рационально (в том числе и массив на 1000 элементов: зачем создавать дополнительно 992 лишних ячеек в памяти, когда нужно лишь 8; или если кто-нибудь введёт больше 1000 элементов, в условии ведь не сказано про такое ограничение).
Автор ответа: LRSM
0

Задание 1:

  • begin
  • var a := ArrRandom;
  • a.Println;
  • Print('Результат:',a[8]+a[9])
  • end.

Задание 2:

  • begin
  • var a := ReadArrInteger(ReadInteger('N:'));
  • a.Transform(x->x>0?x*x:x);
  • a.Print
  • end.

Примеры работ:

Приложения:
Похожие вопросы
Предмет: Русский язык, автор: annarudeckaja