var i: integer; // счетчик a: array[1..10] of Integer; // объявляем массив из 10 целых элементов begin // Вводим элементы массива с клавиатуры for i:=1 to 10 do // цикл begin writeln('vvedite element massiva i nagmite >>ENTER'); write('a[',i,']='); write(a[i]); read(a[i]) end; i:=1; j:=0;// счетчик для поиска 3-го элемента repeat if a[i]<=0 then inc(i) // переходим к следующему элементу else begin inc(j); // отмечаем найденный положительный элемент inc(i) // переходим к следующему элементу end; until (j=3) or (i=11); // До тех пор пока не найден 3-й положительный элемент // либо не проверен весь массив if j=3 then // есть как минимум три положительных элемента в массиве writeln('3 Pologitelniy element a[',i-1,']=', a[i-1]) else // в массиве меньше трех положительных элементов writeln('Net 3 pologitelnogo eltmenta = '); readln; readln { TODO -oUser -cConsole Main : Insert code here } end.
Язык программирования Pascal ABC var n,k,i,j,d,c:integer; label 1,2; begin 1:writeln('Количество месяцев в календаре планеты Мульти:'); readln(n); if (n>109)or(n<1) then begin writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.'); goto 1; end; 2:writeln('Номер дня на который приходится первое число первого месяца нового года:'); readln(k); if (k>7)or(k<1) then begin writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.'); goto 2; end; d:=k; for i:=1 to n do begin for j:=1+(k-1) to 30 do begin if (d=5)and(j=13) then c:=c+1; d:=d+1; if d>7 then d:=1; end; k:=1; end; writeln('Количество несчастливых дней в этом году: ',c); end.
![3. Задан массив X[1..N]. Определите число операций сложения, которые выполняются при работе этой про](/tpl/images/4755/2389/433e7.jpg)
{$APPTYPE CONSOLE}
uses SysUtils;
var i: integer; // счетчик
a: array[1..10] of Integer; // объявляем массив из 10 целых элементов
begin
// Вводим элементы массива с клавиатуры
for i:=1 to 10 do // цикл
begin
writeln('vvedite element massiva i nagmite >>ENTER');
write('a[',i,']=');
write(a[i]);
read(a[i])
end;
i:=1;
j:=0;// счетчик для поиска 3-го элемента
repeat
if a[i]<=0
then
inc(i) // переходим к следующему элементу
else
begin
inc(j); // отмечаем найденный положительный элемент
inc(i) // переходим к следующему элементу
end;
until (j=3) or (i=11); // До тех пор пока не найден 3-й положительный элемент
// либо не проверен весь массив
if j=3
then // есть как минимум три положительных элемента в массиве
writeln('3 Pologitelniy element a[',i-1,']=', a[i-1])
else // в массиве меньше трех положительных элементов
writeln('Net 3 pologitelnogo eltmenta = ');
readln;
readln
{ TODO -oUser -cConsole Main : Insert code here }
end.