Категория
История, опубликовано 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.

Ответы

Ответ
Ответ оставил: Гость
Почему я взяла эту тему: Эта тема для меня была очень интересной и увлекательной, но прошли мы её быстро но на её изучение было отведено мало времени.
Цель: Моя цель узнать и раскрыть больше элементный моментов этой темы.
Чего хотела добиться:
-Узнать больше.
-Рассказать найденный материал семьедрузьямодноклассникам.
-и т. д. (Причины можно взять любые,в зависимости от ваших желаний и положения)
Ответ
Ответ оставил: Гость
Земледелие скотоводство и ремесло
Ответ
Ответ оставил: Гость
У них не было равнин где можно было заниматься земледелием но на плоскогорьях они могли производить разное сырье,а потом его продавать
Ответ
Ответ оставил: Гость
Павамрошапсвуееаспопсчмьбрр5800853


Другие вопросы по истории

Вопрос
История, опубликовано 09.01.2019 16:01
Вопрос
История, опубликовано 09.01.2019 16:01
✅ Ответов: 2 на вопрос по истории: !!! ПАСКАЛЬvar m, k, i; integer; mas; array [1. . 10] of integer; beginmas[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: =0for i: =1 to 10 doif (mas[i]< 0) and (i mod 2=0) then k: =k+1else if mas[i]< 10 then m: =m+1write (m+k) end.... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube