Получи верный ответ на вопрос «Составьте программу, которая формирует массив из 20 случайных чисел, и выводит на экран вначале исходные, а затем преобразованные элементы . » по предмету Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Новые вопросы по информатике
Напиши обратные действия. Снять — Открыть — Прилететь —
Перевести число 2-чной системы счисления в 10-чную: 1110000/2, 10001101/2
Какими знаками можно обозначить на письме звонкий и глухой удары в барабан?
1) В поезде 17 вагонов, 10-17-купейные, остальные-плацкарт. Ввести № вагона. напечатать вид. 2) Ввести 2 числа. Напечатать их частное или сообщить, что на 0 делить нельзя
Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? программа паскаль
Главная » Информатика » Составьте программу, которая формирует массив из 20 случайных чисел, и выводит на экран вначале исходные, а затем преобразованные элементы массива таким образом, что производится перестановка 6 и 16 элементов массива
Ответы на вопросы 2: Генерация случайных чисел. Класс Random
Источник: 4i5.ru
Составить программу которая формирует массив из 15 случайных целых чисел
Привет Лёва Середнячок
Составить программу которая формирует массив из 15 случайных целых чисел из отрезка от -10 до 10. На экран вывести исходный массив и найденный результат.
а) Найти среднее арифметическое всех элементов массива.
б) Вычеслить среднее арифметическое положительных (отрицательных) элементов массива.
0 (0 оценок)
PuerDeSatan 9 лет назад
Светило науки — 41 ответ — 0 раз оказано помощи
var
a: array [1..15] of integer;
avg, avgpol, avgotr: real;
i, k1, k2: byte;
begin
avg := 0; avgpol := 0; avgotr := 0;
writeln(‘Massiv:’);
Randomize;
for i:=1 to 15 do
begin
a[i]:=random(20)-10;
write(a[i], ‘ ‘);
avg:=avg + a[i];
if a[i] > 0 then
begin
avgpol := avgpol + a[i];
inc(k1);
end;
if a[i] < 0 then
begin
avgotr := avgotr + a[i];
inc(k2);
end;
end;
avg:=avg/15;
avgpol:= avgpol/k1;
avgotr:= avgotr/k2;
writeln;
writeln(‘Srednee massiva = ‘, avg:3:2);
writeln(‘Srednee polozh. elementov = ‘, avgpol:3:2);
writeln(‘Srednee otric. elementov = ‘, avgotr:3:2);
readln;
end.
Источник: vashurok.com
Заполнить одномерный массив из 15 элементов случайными целыми числами — Turbo Pascal
Заполнить одномерный массив из 15 элементов случайными целыми числами. Вывести на экран массив, раскрасив розовым цветом положительные элементы, расположенные после максимального элемента.
Уроки Python #9 | Случайные числа | RANDOM
Код к задаче: «Заполнить одномерный массив из 15 элементов случайными целыми числами»
Листинг программы
uses crt; const n=15; var a:array[1..n] of integer; i,imx,k:integer; begin clrscr; randomize; for i:=1 to n do a[i]:=-10+random(40); imx:=1; for i:=2 to n do if a[i]>a[imx] then imx:=i; k:=0; for i:=1 to n do begin if (i>imx)and(a[i]>0)then begin k:=1; textcolor(13); end else textcolor(15); write(a[i],’ ‘); end; writeln; writeln; textcolor(15); writeln(‘Первый максимальный элемент=’,a[imx]); if k=0 then write(‘После максимального нет положительных элементов’); readln end.
Источник: studassistent.ru