Program _massiv;
var A:array[1..50] of real;
i,c:integer;
begin
writeln('Задайте количество членов линейного массива');
readln(c);
for i:=1 to c do begin
writeln('Введите',' ',i,' элемент массива');
readln(A[i]);
end;
for i:=1 to c do
writeln('Элемент массива ',i,' равен ',a[i]);
for i:=1 to c do
if A[i]=7.5 then writeln('Номер элемента массива, равный 7.5 ',i)
end.<span> </span>
var
i,s:integer;
Begin
s:=1;
for i:= 1 to 15 do
if i mod 2=1 then s:=s*i*i;
writeln(s);
End.
#include <stdio.h>
#include <math.h>
int main(void) {
double a = -3.0, b = 5, h = 0.5;
double x, avg = (a + b) / 2.0; // сразу один раз вычисляем среднее арифметическое
for (x = a; x < b; x += h) { // цикл по точкам x
if (x < avg) {
printf ("x=%-4.1f, f(x)=%f\n", x, sin(x));
}
else {
printf ("x=%-4.1f, f(x)=%f\n", x, cos(x*x));
}
}
return 0;
}
<span>Вводится в паскале последовательность из N целых чисел .Является ли последовательность возрастающей? С использованием Repeat или While.
Нет, не является.</span>