Дан одномерный массив из 1000 элементов, состоящий из случайных целых чисел в диапазоне от -5 до 8. найти сумму элементов участка массива, начиная с первого положительного и кончая вторым положительным элементом.
Как то так: var a: array[1..1000] of integer; b: array [1..2] of integer; i, j, sum: integer; begin for i := 1 to 1000 do a[i] := random(13) - 5; j := 1; for i := 1 to 1000 do begin if j = 3 then break; if a[i] > 0 then begin b[j] := i;inc(j); end; end; for i := b[1] to b[2] do sum := sum + a[i]; writeln(sum); end.
Билл Гейтс, Марк Цукерберг, Шон Паркер, Торвальдс Линус… Все эти люди прославились благодаря особому таланту в программировании. Работа в такой области считается преимущественно мужской, но первым программистом является женщина. Это дочь знаменитого английского поэта Байрона – Ада Лавлейс. Именно благодаря ей появились первые приёмы управления вычислениями, которые до сих пор используются в современном программировании.
В настоящее время профессия программиста стала очень востребованной. Прежде всего, это связано с развитием компьютерных технологий и Интернета. Такие специалисты участвуют в разработках различных программ для текстовых редакторов, сайтов, игр, систем видеонаблюдения, сигнализации и т.д.
1. Военное дело, например, системы противоракетной обороны, космические системы. 2. Моделирование физических явлений и исследование построенных моделей с компьютеров. 3. Решение задач метеопрогноза. 4. Системы автоматического проектирования, обеспечивающие поддержку работы инженера-конструктора, существенно повышающие производительность его труда и сокращающие сроки разработок. 5. Управление работой отдельных станков (станки с числовым программным управлением), роботы, робототехнические линии, цеха и заводы-автоматы. 6. Получение изображений внутренних частей непрозрачных тел, в том числе в медицине - компьютерная томография, и на производстве - контроль качества, не разрушающий изделий. 7. Системы массового обслуживания и информационно-справочные системы. Например, системы резервирования и продажи железнодорожных и авиабилетов. 8. Обслуживание крупных спортивных мероприятий - мировых и европейских чемпионатов, Олимпийских игр. 9. Базы данных правовой информации (быстрый доступ к нормативным актам, указам и постановлениям правительства, статьям Уголовного и других кодексов), криминалистические базы данных, хранящие сведения о преступниках и т. д. 10. Банковские и биржевые компьютерные системы. 11. Библиографические компьютерные системы. 12. Подготовка различных документов, отчетов и других печатных материалов, рекламное дело.
var a: array[1..1000] of integer;
b: array [1..2] of integer;
i, j, sum: integer;
begin
for i := 1 to 1000 do
a[i] := random(13) - 5;
j := 1;
for i := 1 to 1000 do begin
if j = 3 then break;
if a[i] > 0 then begin b[j] := i;inc(j); end;
end;
for i := b[1] to b[2] do sum := sum + a[i];
writeln(sum);
end.