Перевести на си program array18; var a: array[1..10] of integer; i, k: integer; begin for i : = 1 to 10 do read(a[i]); for i : = 1 to 9 do if a[i] > a[10] then begin k : = i; break; end; writeln(a[k]); end.
int main(void) { int arr[10], k; for (int i = 0; i < 10; ++i) scanf("%d", &arr[i]); for (int i = 0; i < 9; ++i) if (arr[i] > arr[9]) { k = i; break; } printf("%d", arr[k]); }
int main() { int A[10]; int K = 0; for (int i = 0; i < 10; i++) scanf("%d", &A[i]); for (int i = 0; i < 9; i++) if (A[i] > A[9]) { K = i; break; } printf("%d", A[K]); }
прощения за "пузырёк" //Pascal ABC.NET 3.1 сборка 1219
Const n=5; //количество вершин
Type ty=record x:integer; y:integer; end;
Var ar:array[1..n] of ty; i,j:integer; begin for i:=1 to n do begin write('Абсцисса точки №',i,':');readln(ar[i].x); write('Ордината точки №',i,':');readln(ar[i].y); end; for i:=1 to n-1 do for j:=i+1 to n do if ar[i].x>ar[j].x then swap(ar[i],ar[j]); for i:=1 to (n div 2)-1 do for j:=i+1 to n div 2 do if ar[i].y<ar[j].y then swap(ar[i],ar[j]); for i:=n div 2+1 to n-1 do for j:=i+1 to n do if ar[i].y>ar[j].y then swap(ar[i],ar[j]); ar.reverse.Print; end.
Пример ввода: Абсцисса точки №1:1 Ордината точки №1:2 Абсцисса точки №2:2 Ордината точки №2:1 Абсцисса точки №3:-3 Ордината точки №3:-3 Абсцисса точки №4:3 Ордината точки №4:3 Абсцисса точки №5:3 Ордината точки №5:1 Пример вывода: (3,3) (3,1) (2,1) (-3,-3) (1,2)
Чтобы операционная система и другие программы могли обращаться к файлам, файлы должны иметь обозначение. Это обозначение обычно называется именем файла. Оно состоит из 2-х частей, разделенной точкой. Каталог - должен быть общим местом хранения файлов, которые группируются по каким-либо признакам. И посему должен иметь общее название, хотя не обязательно. А для файлов можно сделать префикс самого каталога, но в принципе тоже не обязательно. Отсюда вывод: Называй хоть как, главное чтобы самому потом не запутаться:) Каталоги не имеют расширения, а файлы имеют, некоторый перечень расширений: Текстовые форматы и документы: txt, doc, doxc, rtf Медиа. - Звуковые файлы: mp3, mp4, wav, mid - Видео файлы: avi, mpeg, mkv, mp4 Исполняемые файлы: exe, com Так сказать "синтаксис": Имя_файла.расширение_файла
int main(void)
{
int arr[10], k;
for (int i = 0; i < 10; ++i) scanf("%d", &arr[i]);
for (int i = 0; i < 9; ++i)
if (arr[i] > arr[9]) { k = i; break; }
printf("%d", arr[k]);
}