saidsaleh881
?>

Подскажите (массив в паскале)! дана : дан массив a вещественного типа, содержащий 20 положительных и отрицательных элементов. сформировать массив b из положительных элементов массива a, имеющих четный индекс. найти сумму квадратов элементов нового массива. есть решение: var mas, c: array[1..20]of real; i, c_n: integer; s: real; begin randomize; for i : = 1 to 20 do begin mas[i] : = random(100) - 50; if (mas[i] > 0) and (i mod 2 = 0) then begin c_n : = c_n + 1; c[c_n] : = mas[i]; write(c[c_n], ' '); s : = s + c[c_n] * c[c_n]; end; end; writeln(); writeln('s = ', s); end. подскажите ! как вывести на экран первоначальный массив, в добавок к этому

Информатика

Ответы

AndreevManaeva
Сказано было сформировать массивы с имененем а и  в. заполняем их  целыми числами, так что и   объявить массивы можно как целые. но это мелочи, не обязательные. var      a, b: array[1..20]of integer;       i, s,n: integer;       begin        writeln('массив а: ');     randomize;             for i : = 1 to 20 do            begin            a[i] : = random(100) - 50;       write(a[i],' ');             if (a[i] > 0) and (i mod 2 = 0)  then          begin        n: =n+1;             b[n]: = a[i];                   s : = s + b[n] * b[n];           end;       end;     writeln();     writeln('массив в: ');     for i: =1 to n do write(b[n]);     writeln;     writeln('s = ', s); end.
Смирнов_Андрей691
Источники аналоговой информации(непрерывной): 1.        скрипка. может создавать звук любой высоты. переход от тона к тону происходит плавно и непрерывно. 2.        телевизор. луч кинескопа плавно и непрерывно перемещается по экрану, и яркость отдельных участков меняется плавно. 3.        телефон, громкость звука меняется плавно и непрерывно. 4.        картина, нарисованная художником с использованием большого количества оттенков красок. 5.        графики функций.   источники цифровой (дискретной)  информации. 1.        фортепьяно . нельзя исполнить звуки между нотами «ми» и «фа». переход от ноты к ноте осуществляется скачком. 2.        монитор. яркость луча изменяется скачком – есть луч )яркая белая или цветная точка), нет луча (черная точка). 3.        музыкальный проигрыватель компакт дисков. 4.        компьютер 5.        мобильные телефоны. аналоговую информацию можно превратить в цифровую (для этого достаточно, например, разным цветам присвоить номер или музыку записать нотами) и наоборот.
sergeev-alp5

Шанежки 751

Пирожные 341

Прибыль эквивалентна стоимости 2898 пирожков

Объяснение:

Пусть цех производит 4 вида продукции:

Пирожки (максимально возможно произвести 2000 шт. в день, если ничего больше не производить)

Шанежки (максимально возможно произвести 1500 шт. в день)

Булочки (максимально возможно произвести 1200 шт. в день)  

Пирожные (максимально возможно произвести 700 шт. в день).

Соотношение стоимости изделий таково: пирожок/булочка - 2/1 пирожок/шанежка - 1/2 пирожок/пирожное - 1/4.

Емкость склада равна 1100 изделий. Составить оптимальный план выпуска продукции для достижения максимальной выручки.

Извините что добавила ещё продукции.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Подскажите (массив в паскале)! дана : дан массив a вещественного типа, содержащий 20 положительных и отрицательных элементов. сформировать массив b из положительных элементов массива a, имеющих четный индекс. найти сумму квадратов элементов нового массива. есть решение: var mas, c: array[1..20]of real; i, c_n: integer; s: real; begin randomize; for i : = 1 to 20 do begin mas[i] : = random(100) - 50; if (mas[i] > 0) and (i mod 2 = 0) then begin c_n : = c_n + 1; c[c_n] : = mas[i]; write(c[c_n], ' '); s : = s + c[c_n] * c[c_n]; end; end; writeln(); writeln('s = ', s); end. подскажите ! как вывести на экран первоначальный массив, в добавок к этому
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Irina_Nikolai
agaloan8
Lapushkina
Peshkov
lenapopovich556510
Vladimirovna1370
Маринина_Елена
snopovajulia
ovdei71
Pilotmi247074
Vos-sv
Sergei_Olga658
Яковчук1911
dmitrievanata83538
myhauz