<span>Массив одномерный из 10 элементов.</span>
var a : Array [1..10] Of Real;
<span> I:integer;
</span>Begin
<span>For i:=1 to 10 do read (a[i]); {ввод элементов массива}
</span><span>For i:=1 to 10 do {открыт цикл}
</span><span><span> If</span> a[i] < 0 then a[i]:=0; {сравнение элемента массива с нулем и если да то замена}
</span><span>For i:= 1 to 10 do write(a[i]); {вывод элементов массива}
</span><span>End.</span>
Я была в лесу летом. Там я собирала грибы. Было много деревьев и травы,кустов. В конце лета листья начинали опадать. Было очень тихо,слышно только пение птиц. Слышно как шуршит под ногами трава и ветки. Воздух свежий. В лесу очень хорошо отдохнуть,на природе!
Правильный ответ: 4,5 Мбайта
Объяснение:
4718592 байт / 1024 = 4608 Кбайта
4608 Кбайт / 1024 = 4,5 Мбайта
Ответ:
38, тогда 38 человек критиковали одного, его и не взяли