Составьте программу, которая вычисляет среднюю плотность раствора по результатам измерения плотности 7 проб + еще задача

@Катенька =)) · Регистрация: 05.10.2009

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

№1
Составьте программу, которая вычисляет среднюю плотность раствора по результатам измерения плотности 7 проб( задаются в массиве констант :1205,1350,1170,1320,1220,1310,1180) ?

№2.
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет сумму чисел, кратных 3 . ?

буду благодарна )

@denisneposeda · 20.10.2010, 20:46

Катенька =)),
1) Ты наверно имела в разделе констант:

Pascal

uses crt;
const
a=1205;
b=1350;
c=1170;
d=1320;
e=1220;
f=1310;
g=1180;
var
Sr: real;
begin
Sr:=(a+b+c+d+e+f+g)/7;
writeln ('Srednee=',sr:1:2);
end.

2)

Pascal

uses crt;
const
n=40;
var
A: array [1..N] of integer;
S,i: integer;
begin
S:=0;
for i:=1 to N do
begin
A[i]:=random(20);
if A[i] mod 3=0
then S:=S+A[i];
end;
for i:=1 to N do
write (A[i],' ');
writeln;  writeln;
writeln ('Summa=',s);
end.

@SuPeR XaKer · 20.10.2010, 22:16

1) Ты наверно имела в разделе констант:

denisneposeda массив констант это массив констант

@denisneposeda · 20.10.2010, 22:34

SuPeR XaKer, тогда помоги ))) ыть ))

@SuPeR XaKer · 20.10.2010, 22:35

Pascal

uses crt;
const a:array[1..7] of integer=(1205,1350,1170,1320,1220,1310,1180);
var
Sr,sum: real;
i:integer;
begin
for i:=1 to 7 do
begin
sum:=sum+a[i];
end;
Sr:=sum/7;
writeln ('Srednee=',sr:1:2);
end.

@denisneposeda · 20.10.2010, 22:41

SuPeR XaKer, вот так?

Pascal

uses crt;
const
 A : array [ 1 .. 7] of integer = (1205,1350,1170,1320,1220,1310,1180) ;
 n=7;
var
S: real;
i: integer;
begin
clrscr;
s:=0;
for i:=1 to n do
S:=s+a[i];
writeln ('Srednee=',s/n:2:2);
end.

опередили мну )))

@Катенька =)) 0 / 0 / 0 Регистрация: 05.10.2009 Сообщений: 14
		1
	Составьте программу, которая вычисляет среднюю плотность раствора по результатам измерения плотности 7 проб + еще задача 20.10.2010, 19:55. Показов 6007. Ответов 5 Метки нет (Все метки) №1 Составьте программу, которая вычисляет среднюю плотность раствора по результатам измерения плотности 7 проб( задаются в массиве констант :1205,1350,1170,1320,1220,1310,1180) ? №2. Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет сумму чисел, кратных 3 . ? буду благодарна ) 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	20.10.2010, 22:16	3
	1) Ты наверно имела в разделе констант: denisneposeda массив констант это массив констант 0

@denisneposeda 46 / 46 / 36 Регистрация: 18.10.2010 Сообщений: 212
	20.10.2010, 22:34	4
	SuPeR XaKer, тогда помоги ))) ыть )) 0

Опции темы