Массивы в паскале 1. вы посетили магазин и купили 10 видов товара. в таблицу t[1: 10] вы записали количество купленного товара каждого вида. в таблицу c[1: 10] записали цены единиц каждого вида товара соответственно. составьте на паскале программу вычисления общей стоимости всех покупок. 2. вы приобрели котёнка. каждый вечер вы определяете его вес с весов. как можно описать на паскале массив, в котором будут храниться значения веса котёнка в течение одного месяца (например, мая)? 3. напишите на паскале программу, которая запрашивает с клавиатуры массив из n чисел, а затем выводит среднее арифметическое всех элементов массива. 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.

Ответы

SekretKtoYa 06.07.2020 17:13

1
for i:=1 to 10 do s:=s+T[i]*C[i]

2
a:array[1..31] of real;

3
for i:=1 to N do
begin
  readln(a[i];
s:=s+a[i];
end;
s:=s/N;
writeln(s)

4
Program massiv;
Var
  a:array[-10..10] of real;
i:integer;
Begin
For
  i:=-10 to 10 Do
  Read(a[i]);
For
  i:=-10 to 10 Do
  a[i]:=a[i]/10;
For
  i:=-10 to 10 Do
  Writeln(a[i])
End.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика