ilyanedelev
?>

Перевести на си 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.

Информатика

Ответы

stolle16
#include <stdio.h>

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]);
}
shhelina
#include <stdio.h>

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]);
}
yulyatmb
прощения за "пузырёк"
//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)
lagutkins
Чтобы операционная система и другие программы могли обращаться к файлам, файлы должны иметь обозначение. Это обозначение обычно называется именем файла. Оно состоит из 2-х частей, разделенной точкой.
Каталог - должен быть общим местом хранения файлов, которые группируются по каким-либо признакам. И посему должен иметь общее название, хотя не обязательно.
А для файлов можно сделать префикс самого каталога, но в принципе тоже не обязательно. Отсюда вывод: Называй хоть как, главное чтобы самому потом не запутаться:)
Каталоги не имеют расширения, а файлы имеют, некоторый перечень расширений: 
Текстовые форматы и документы: txt, doc, doxc, rtf
Медиа.
- Звуковые файлы: mp3, mp4, wav, mid
- Видео файлы: avi, mpeg, mkv, mp4
Исполняемые файлы: exe, com
Так сказать "синтаксис":
Имя_файла.расширение_файла

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Перевести на си 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.
Ваше имя (никнейм)*
Email*
Комментарий*