Ответы на вопрос:
ответ:Если использовать Shift, то нет
Объяснение:
Для сохранения пропорций при масштабировании изображений следует, при изменении размера с мыши, удерживать нажатой клавишу shift
program mazoff1; uses crt; var a,b: array [1..5] of integer; //массивы а и в c: array [1..10] of integer; //массив с i,j: integer; //счетчикиbegin randomize; j: =0; for i: =1 to 5 do begin a[i]: =random(101)-50; //заполняем массивы b[i]: =random(101)-50; //случайными числами от -50 до 50 end; for i: =1 to 5 do begin write(a[i],' '): 5; //выводим массивы а и в в столбик writeln(b[i]): 5; end; for i: =1 to 5 do begin if a[i]> 0 then //проверяем текущий элелмент массива а begin j: =j+1; //если он положительный, увеличиваем счетчик на 1 c[j]: =a[i]; //и добавляем этот элемент в массив с end; if b[i] mod 2 < > 0 then //проверяем текущий элелмент массива в begin j: =j+1; //если он чётный, увеличиваем счетчик на 1 c[j]: =b[i]; //и добавляем этот элемент в массив с end; end; writeln('всего в массиве с ',j,' элементов: '); for i: =1 to j do writeln(c[i]); end.
program mazoff2; uses crt; const n = 20; var mas: array [1..n] of real; //массив данных i,j: integer; //счетчики ur,pl: real; //урожай и площадьbegin randomize; for i: =1 to n do begin mas[i]: =random(101); //заполняем массив end; j: =1; ur: =0; pl: =0; while j< =n do begin ur: =ur+mas[j]*mas[j+1]; pl: =pl+mas[j+1]; j: =j+2; end; writeln('всего собрано ',ur,' тонн с общей площади ',pl,' га.'); writeln('средняя урожайность равна ',ur/pl: 3: 2); end.
кстати, программа димана добавляет сначала все нужные элементы из массива а, а только потом - из массива в. а в условии сказано: "попеременно"
Популярно: Информатика
-
Дашулька15050410.01.2020 04:47
-
kuvandykov0505.04.2021 10:50
-
SadPlayer00702.11.2021 19:37
-
bgs654410.05.2020 02:18
-
dreygar08.01.2021 05:26
-
mia7301.03.2023 14:51
-
Zazasalka17412.06.2020 10:30
-
ivansobolev000Ivan26.01.2022 22:23
-
voldemarsoybzwx08.04.2021 02:35
-
benblast28.11.2021 18:03