Дополнительное задание 1 Параграф 20 ГДЗ Семакин 9 класс (Информатика)

Ниже вариант решения задания из учебника Семакин, Залогова 9 класс, Просвещение:

ЕК ЦОР: Часть 2, глава 6, §42, ЦОР №3

Домашнее задание №28

Тема: Массивы в Паскале

1. Вы посетили магазин и купили 10 видов товара. В таблицу T[1:10] вы записали количество купленного товара каждого вида. В таблицу C[1:10] записали цены единиц каждого вида товара соответственно. Составьте на Паскале программу вычисления общей стоимости всех покупок.

program stoimost;

var

T: array[1..10] of integer;

C: array[1..10] of real;

s: real;

i: integer;

begin

writeln(taskВведи количество 10 товаровtask);

for i := 1 to 10 do

read(T[i]);

writeln(taskВведи через пробел стоимости товаровtask);

for i := 1 to 10 do

read(C[i]);

s := 0;

for i := 1 to 10 do

s := s + T[i] * C[i];

writeln(taskСтоимость покупки =task, s:6:2, taskрублейtask)

end.

2. Вы приобрели котёнка. Каждый вечер вы определяете его вес с помощью весов. Как можно описать на Паскале массив, в котором будут храниться значения веса котёнка в течение одного месяца (например, мая)?

var

B: array[1..31] of real; i:integer;

begin

for i := 1 to 31 do

read(B[i]);

end.

3. Напишите на Паскале программу, которая запрашивает с клавиатуры массив из N чисел, а затем выводит среднее арифметическое всех элементов массива.

program Z_3;

var

a: array[1..20] of integer;

n, s, i: integer;

sr: real;

begin

write(taskВведи количество чисел > task);

readln(n);

writeln(taskВведи task, n, task целых чиселtask);

s := 0;

for i := 1 to n do

begin

read(a[i]);

s := s + a[i];

end;

sr := s / n;

writeln(taskСреднее арифметическое task, n, task чисел равно task, sr:6:2)

end.

4. Перепишите программу на Паскале, исправив ошибки:

Program massiv;

Var a:array(-10..10) of integer;

Begin

For i:=1 to 20 Do

Read(a[i]);

For i:=1 to 20 Do

a[i]:=a[i]/10;

For i:=1 to 20 Do

Write(a[i])

End.

program massiv;

var

a: array[1..20] of real;

i: integer;

begin

for i := 1 to 20 do

read(a[i]);

for i := 1 to 20 do

a[i] := a[i] / 10;

for i := 1 to 20 do

write(a[i]:6:2, task task)

end.