История, опубликовано 09.01.2019 16:01
!!! ПАСКАЛЬ
var m, k, i; integer;
mas; array [1. . 10] of integer;
begin
mas[1]: =12; mas[2]: =-5; mas[3]=-14;
mas [4]: =16; mas[5]: =-10; mas[6]: =-6; mas[7]: =8; mas[8]: =-10; mas[9]: =-15; mas[10]: =-8;
m: =0; k: =0
for i: =1 to 10 do
if (mas[i]< 0) and (i mod 2=0) then k: =k+1
else if mas[i]< 10 then m: =m+1
write (m+k)
end.
Ответ оставил: Гость
Почему я взяла эту тему: Эта тема для меня была очень интересной и увлекательной, но прошли мы её быстро но на её изучение было отведено мало времени.
Цель: Моя цель узнать и раскрыть больше элементный моментов этой темы.
Чего хотела добиться:
-Узнать больше.
-Рассказать найденный материал семьедрузьямодноклассникам.
-и т. д. (Причины можно взять любые,в зависимости от ваших желаний и положения)
Цель: Моя цель узнать и раскрыть больше элементный моментов этой темы.
Чего хотела добиться:
-Узнать больше.
-Рассказать найденный материал семьедрузьямодноклассникам.
-и т. д. (Причины можно взять любые,в зависимости от ваших желаний и положения)
История, опубликовано 09.01.2019 16:01
История, опубликовано 09.01.2019 16:01
История, опубликовано 09.01.2019 16:01
История, опубликовано 09.01.2019 16:01