Program p1;
var i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do
begin
a:=a+i;
end;
writeln(a);
readln;
end.
Var n:Integer;
Begin
Read(n);
while (n>=0) do
begin
n:=n-1;
end;
Writeln('Finished');
<span>end.</span>
Путь к файлу (Например C:\file.txt)
Ответ:
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
int main(){
int arr[10],even[10], cur = 0, tmp;
srand(time(0));
puts("Source array:");
for (int i = 0; i < 10; i++){ //генерация массива +
arr[i] = rand() % 30; //отбор четных элементов
printf("%d\n", arr[i]);
if (arr[i] % 2 == 0){
even[cur] = arr[i];
cur++;
}
}
for (int i = 0; i < cur; i++) //сортировка пузырьком по убыванию
for(int j = 0; j < cur - i - 1; j++)
if (even[j+1] > even [j]){
tmp = even[j+1];
even[j+1] = even[j];
even[j] = tmp;
}
puts("Sorted array:"); //печать сортированного массива
for (int i = 0; i < cur; i++)
printf("%d\n", even[i]);
return 0;
}
Объяснение:
Компилятор gcc 8.2.0