1.разработка программы поиска числа в случайно сформированном массиве. 2.вы посетили магазин и купили 10 видов товара. в таблицу t[1: 10] вы записали ко-личество купленного товара каждого вида. в таблицу c[1: 10] записали цены единиц каждого вида товара соответственно. составьте на паскале программу вычисления общей стоимости всех покупок. 3.вы приобрели котёнка. каждый вечер вы определяете его вес с весов. как можно описать на паскале массив, в котором будут храниться значения веса котёнка в течение одного месяца (например, мая)? 4.напишите на паскале программу, которая запрашивает с клавиатуры массив из n чисел, а затем выводит среднее арифметическое всех элементов массива. напишите что можете умоляю
2)var t,c:array [1..10] of integer;
i,sum:integer;
begin
for i:=1 to 10 do begin
t[i]:=random(20+i);
c[i]:=random(20000+i);
end;
for i:=1 to 10 do begin
sum:=sum+t[i]*c[i];
end;
for i:=1 to 10 do begin
writeln('Количество товара ',i,' вида ',t[i],' Стоимость товара ',i,' вида ', c[i]);
end;
writeln('Общая сумма ',sum);
end.
3) Мы опишем его так
ves: array [1..31] of real;
4)
var sum,x:real;
n,i:integer;
begin
read(n);
for i:=1 to n do begin
read(x);
sum:=sum+x;
end;
writeln(sum/n);
end.