Предмет: Информатика,
автор: dima8686
30 БАЛЛОВ
Помогите решить два задания по информатике 10 класс.Написать надо на листке. язык: паскаль
1.Задать массив из 10-ти произвольных чисел. Найти сумму девятого и десятого элементов последовательности.
2.Массив А вводится с клавиатуры. Вывести массив А, в , котором положительные элементы возвести в квадрат.
Ответы
Автор ответа:
1
Ответ:
Дан во вложениях.
Приложения:
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.
Примеры работ:
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: ffffhkh
Предмет: Русский язык,
автор: annarudeckaja
Предмет: Русский язык,
автор: serega675
Предмет: Математика,
автор: NeGaT1VeFlash
Предмет: Физика,
автор: khismatova777