Напишите программу, которая заполняет список из 10 элементов случайными числами на отрезке [-50; 50]. Найдите сумму всех элементов, оканчивающихся на 2
заполнить массив состоящий из 10 элементов случайными целыми числами из промежутка [-50;50]. Выведите на экран и вычислите сумму всех отрицательных элементов. Как в программе паскаль. Заранее огромное с:
1
СМОТРЕТЬ ОТВЕТ
Что означает фраза "КАК в программе паскаль" ?:
И потом, "Выведите на экран и вычислите сумму" - это не по-русски, потому что сначала надо вычислить, а затем вывести.
Войди чтобы добавить комментарий
Реклама
ответ, проверенный экспертом
5,0/5
3
Участник Знаний
const
n = 10;
var
x: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln('Элементы массива');
s := 0;
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
if x[i] < 0 then s := s + x[i]
end;
Writeln;
Writeln('Сумма отрицательных элементов равна ', s);
Чтобы вставить музыку в презентацию, ЕСТЕСТВЕННО, её нужно сохранить на ваше устройство, а как иначе? Представьте ситуацию, вы хотите приготовить салат, но у вас нет одного ингредиента, вы же не можете взять его из «ниоткуда», его надо либо купить, либо в огороде взять,в общем, что угодно, но оно должно ПРИСУТСТВОВАТЬ у вас. Тоже самое и с музыкой. Музыка должна быть сохранена на устройство, чтобы использоваться в презентации. И кстати, если эту презентацию переносить на накопительное устройство, то музыку обязательно захватывать тоже.
Var i,j,s,k:integer; begin s:=0; k:=0; for i:=1 to 9 do for j:=0 to 9 do begin s:=s+i*100+j*10+i; k:=k+1; end; writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2); end.
Результат: s = 49500 k = 90 sred = 550.00
Если нужно приложение с формой, то: помещаете на форме командную кнопку (Button) и статичный текст (StaticText). В обработчик кнопки добавляете код: procedure TForm1.Button1Click(Sender: TObject); var i,j,s,k:integer; s:string; begin s:=0; k:=0; for i:=1 to 9 do for j:=0 to 9 do begin s:=s+i*100+j*10+i; k:=k+1; end; s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k); StaticText1.Caption := s; end;
znanija
Поиск...
Избавься от ограничений
ПОПРОБУЙ ЗНАНИЯ ПЛЮС СЕГОДНЯ
User avatar
Nastyukha0
10.02.2015
Информатика
5 - 9 классы
ответ дан • проверенный экспертом
заполнить массив состоящий из 10 элементов случайными целыми числами из промежутка [-50;50]. Выведите на экран и вычислите сумму всех отрицательных элементов. Как в программе паскаль. Заранее огромное с:
1
СМОТРЕТЬ ОТВЕТ
Что означает фраза "КАК в программе паскаль" ?:
И потом, "Выведите на экран и вычислите сумму" - это не по-русски, потому что сначала надо вычислить, а затем вывести.
Войди чтобы добавить комментарий
Реклама
ответ, проверенный экспертом
5,0/5
3
Участник Знаний
const
n = 10;
var
x: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln('Элементы массива');
s := 0;
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
if x[i] < 0 then s := s + x[i]
end;
Writeln;
Writeln('Сумма отрицательных элементов равна ', s);
end.