В массиве хранятся сведения о стоимости 12 различных предметов. Определить общую стоимость всех предметов

@anastasia_LSD · Регистрация: 16.06.2012

Студворк — интернет-сервис помощи студентам

В массиве хранятся сведения о стоимости 12 различных предметов. Определить общую стоимость всех предметов.
кто нибудь помогите сделать

@Владимир_ВМ · 18.06.2012, 02:00

Pascal

var
a:array[1..12]of real;
i:integer;
s:real;
begin
writeln('Введите стоимость:');
s:=0;
for i:=1 to 12 do
  begin
    write(i,'-го товара: ');read(a[i]);s:=s+a[i];
  end;
write('Общая стоимость всех товаров S=',S:8:2);
end.

@eXPonent · 18.06.2012, 02:05

Pascal

Var a:array [1..12] of integer;
    sym,i:integer;
    
BEGIN
 
For i:=1 to 12 do
 Begin
   Read(a[i]); // Ввод стоимости
   sym:=sym+a[i];
 End;
 
Write(sym);
 
END.

@anastasia_LSD 0 / 0 / 0 Регистрация: 16.06.2012 Сообщений: 6
		1
	В массиве хранятся сведения о стоимости 12 различных предметов. Определить общую стоимость всех предметов 17.06.2012, 21:13. Показов 9724. Ответов 2 Метки нет (Все метки) В массиве хранятся сведения о стоимости 12 различных предметов. Определить общую стоимость всех предметов. кто нибудь помогите сделать 0

Опции темы

В массиве хранятся сведения о стоимости 12 различных предметов. Определить общую стоимость всех предметов

Решение