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.
1) (Если была высшая математика, то должно быть понятно.) Ну допустим надо посчитать сред. ариф. всех элементов массива. Пусть будет массив размерностью (Типа таблица) 3х3, запишем его так (он двухмерный) A[n,m]; - основное положение массива, где n строка, где m столбец. Давать ему наименование равно такому же смыслу как и Program N; никаких цифр впереди например 1A, правильно записывать массив - A1, XD1D4, _s4; _1; _1d1 и т.д. Массив должен иметь такой же тип переменных какой задан в условии, т.е. непосредственно real = real. Элементы массива записываются через запятую. И снова же, если массив имеет тип данных целых чисел, то элементы его тоже должны соответствовать им A[i,j] = integer; i,j - type integer; Сейчас допишу остальные
mas:array [1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do mas[i]:=random(100);
writeln(mas[1]+mas[10]);
end.