помогите программисты мудрые:)

15.05.2008, 18:39. **Показов** 812. **Ответов** 1

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

нужен код для: массив из целых чисел заполняемый случайными числами от 0 до 33 от 4 до 66 от 67 до 100 представить числа в процентном соотношении, массив 70 элементов

@Puporev · 19.05.2008, 08:04

В условии небольшая опечатка, видимо не от 4 до 67, а от 34 до 67.
Заполняем массив случайными числами от 0 до 100 (random(101)), потом считаем сколько чисел в какой интервал попало и определяем процент.
Пишется это так:

Код

[SIZE=2]
uses crt;
const n=70;
var a:array[1..n]of integer;
p1,p2,p3:integer;
i:integer;
begin
clrscr;
randomize;
writeln('Ishodnyj massiv:');
p1:=0;p2:=0;p3:=0;
for i:=1 to n do
begin
a[i]:=random(101);
if(a[i]>=0)and(a[i]<=33)then
begin
p1:=p1+1;
end
else if (a[i]>=34)and(a[i]<=67)then
begin
p2:=p2+1;
end
else
begin
p3:=p3+1;
end;
write(a[i],' ');
end;
writeln;
writeln;
writeln('Rezultat:');
writeln('Ot 0 do 33 ',p1,' chis=',(100*p1/70):0:2, '%');
writeln('Ot 34 do 67 ',p2,' chis=',(100*p2/70):0:2, '%');
writeln('Ot 68 do 100 ',p3,' chis=',(100*p3/70):0:2, '%');
readln
end.
[/SIZE]

DONBAS
		1
	помогите программисты мудрые:) 15.05.2008, 18:39. Показов 812. Ответов 1 Метки нет (Все метки) нужен код для: массив из целых чисел заполняемый случайными числами от 0 до 33 от 4 до 66 от 67 до 100 представить числа в процентном соотношении, массив 70 элементов

Опции темы