Ответ:
#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
Шаг 1: I=1, S=S+I=0+1=1
шаг 2: I=2, S=1+2=3
Тело цикла: S:=S+I
S=3
S:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then s[i]:='*'
else s[i]:='-';
writeln(s);
readln;
end.
Ответ:
const
n=5;
type
t_spisok=record
surname:string[20];
name:string[20];
YearBorn:string[4];
ves:integer;
Rost:integer;
end;
mas=array [1..n] of t_spisok;
var
spis1:mas;
f: file of t_spisok;
i:integer;
Объяснение:
program spisok1;
const
n=5;
type
t_spisok=record
surname:string[20];
name:string[20];
YearBorn:string[4];
ves:integer;
Rost:integer;
end;
mas=array [1..n] of t_spisok;
var
spis1:mas;
f: file of t_spisok;
i:integer;
// То что ниже - это для проверки
begin
Assign(f,'klass9.dat');
Rewrite(f);
for i:=1 to n do begin
with spis1[i] do begin
Write('фамилия: ');
ReadLn(surname);
Write('имя: ');
ReadLn(name);
Write('год рождения: ');
ReadLn(yearborn);
Write('вес(кг): ');
ReadLn(ves);
Write('рост(см): ');
ReadLn(rost);
end;
Write(f, spis1[i]);
end;
Close(f);
Assign(f,'klass9.dat');
Reset(f);
writeln ('фамилия':20,'имя':20, 'год рожд.':10,' вес ':4,' рост ':4);
i:=1;
while not Eof(f) do begin
Read(f, spis1[i]);
with spis1[i] do begin
writeln (surname:20,name:20,YearBorn:10,ves:4,rost:4);
end;
i:=i+1;
end;
close(f);
readln;
end.