Const
n = 100;
var
i, k_max, max, neg_max: integer;
a: array[1..n] of integer;
begin
for i := 1 to n do
begin
a[i] := random(100) - 50;
write(a[i], ' ');
end;
writeln();
max := a[1];
k_max := 1;
neg_max := 0;
for i := 1 to n do
begin
if a[i] > max then begin
max := a[i];
k_max := 1;
end;
if a[i] = max then k_max := k_max + 1;
if (a[i] < 0) and (abs(a[i]) > abs(neg_max)) then
neg_max := a[i];
end;
writeln('Max: ', max, ' k=', k_max);
writeln('Positive: ', max);
writeln('Negative: ', neg_max);
end.
1. Убрать ; после program
2. war заменить на var
3. Не нужны строки writeln('Введите число d'); readln(d); - это не ошибка, а просто мусор
4. Вместо p= должно быть p:=
5. Вместо z=sqrt a*b-5.1; должно быть z:=sqrt(a*b-5.1);
6. Вместо R= должно быть R:=
7. Вместо writeln('вывести число'); должен быть организован вывод R, например, writeln('R=',R);
8. Вместо readlns; должно быть readln, точка с запятой перед end необязательна.
Обычно размер указывают, раз нету, взял по дефолту 10(Const N=10). И диапазон какой-то странный, думаю имелось введу (-5;5)
Program G;
Uses Crt;
Const N=10;
Var i: integer; mass: array [1..n] of integer;
Begin
Randomize;
ClrScr;
Writeln('Исходный массив из 10 чисел диапозона (-5;5):');
For i:=1 to N do
Begin
Mass[i]:=Random(11)-5;
Write(Mass[i]:4);
End;
Writeln;
Writeln('Исходный массив после замены всех отрицательны на -1:');
For i:=1 to N do
If mass[i]<0 then mass[i]:=-1;
For i:=1 to N do write(Mass[i]:4);
Readln;
<span> End.</span>
Const
Eps = 0.01;
A = -100;
B = 100;
N = 10;
Var
i : Byte;
m : array[1..N] of Real;
Flag: Boolean;
Begin
Flag:=True;
For i:=1 to N do
Begin
Repeat
Write('Введите число № ',i,' : '); Readln(m[i]);
Until (m[i]>=A) and (m[i]<=B);
end;
Writeln;
For i:=2 to N do
If abs(m[i-1]-m[i])<Eps then
Begin
Writeln(m[i-1],' ',m[i]);
Flag:=False;
end;
If Flag then Writeln('НЕТ');
end.
Результат:
Введите число № 1 : 2.3
Введите число № 2 : 2.4
Введите число № 3 : 2.45
Введите число № 4 : 2.46
Введите число № 5 : 2.465
Введите число № 6 : 3.0
Введите число № 7 : 4.0
Введите число № 8 : 4.01
Введите число № 9 : 4.005
Введите число № 10 : 4.007
2.45 2.46
2.46 2.465
4 4.01
4.01 4.005
4.005 4.007
Тут, во-первых, не понятно о каких именно таблицах идет речь
Для таблиц баз данных:
1) Строка называется записью и может удаляться. Столбец называется колонка и может удаляться. Ячейка (поле) по сути сама по себе удаляться не может, но может быть очищена от данных или содержать данные по умолчанию
2) Строка(несколько вариантов), целое(несколько вариант), с плавающей запятой (несколько вариантов), логического типа, дата, дата-время, время и двоичные данные или blob
Для электронных таблиц типа Excel:
1) Столбцы, строки и ячейки могут быть удалены. При удалении отдельной ячейки выбирается, как именно должны быть смещены данные
2) строка, ссылка, гиперссылка, целое число, дробное число, проценты, денежные единицы, дата, дата-время, время, формула. Так же ячейка может содержать дополнительные данные типа личного имени, комментария, форматирование, цвет фона и тд
